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Abstract 

This  report  is  an  update  of  the  June  1980  publication  of  the 
COUNTRY .REPORT  programs.  These  programs  are  designed  to  access  the 
ERS  data  bases  and  provide  county  reports  containing  grain  supply/utili¬ 
zation  and  macroeconomic  data.  The  program  also  now  provides  a  time- 
trend/graphics  option  and  a  SPEAKEASY  data-set  creation  option. 
Modifications  have  been  made  to  increase  processing  speed  and  to  allow 
program  execution  in  batch.  If  you  have  any  questions  or  comments  on 
this  program,  contact  William  E.  Kost  or  Richard  K.  Matta  (202-447-8470). 
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COUNTRY .REPORT:  A  Prompting  Program  for 

Accessing  World  Grain  and  Macroeconomic  Data 

by  Richard  K.  Matta 

This  program  is  designed  to  access  the  ESCS  database  and  provide  a 
SPEAKEASY  dataset,  tabular  output,  or  tables  and  graphs  of  selected  IMF 
International  Financial  Statistics  (IFS)  macroeconomic  and  FAS  grain  supply/ 
utilization  data  for  individual  countries  and  regions.  Only  a  minimum  of 
input  is  required  from  the  user.  Access  to  the  program  is  through  an  inter¬ 
active  terminal.  Output,  however,  may  be  directed  to  the  high-speed  line 
printers  as  a  batch  run.  This  is  suggested  for  three  or  more  countries. 

To  save  turnaround  time  and  decrease  connection  costs  of  interactive  use, 
grain  data  is  accessed  through  OASIS.  When  the  program  is  to  be  executed  inter¬ 
actively,  a  region  size  of  at  least  500  must  be  specified  in  the  logon  command. 
See  example  below: 

ologon  ers75  size(500) 

This  size  parameter  is  not  necessary  to  enter  data  for  batch  execution. 

To  access  both  the  batch  and  interactive  versions  of  the  program,  the  user 
should  enter  the  following  command  into  the  terminal  after  the  logon  procedure: 

exec  ' ers75. er3rm. country. report . clist ' 

The  terminal  will  then  ask  whether  the  program  is  to  be  submitted  in  the  batch 
mode  or  run  interactively. 


INTERACTIVE  MODE 

In  this  interactive  version,  the  program  enters  OASIS  after  a  brief 
initialization  period.  The  user  will  then  be  prompted  with  the  symbol 
and  must  enter  a  size  command: 


size ( 200 ) 
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OASIS  next  prompts  the  user  for  his  ersid  (logon  identification)  and 
terminal  type.  After  entering  this  information,  the  user  should  type  the 
following  line: 

: _  get  coreport  on  report;  coreport 

Any  additional  information  requested  by  the  terminal  will  be  self-explana¬ 
tory. 

No  more  than  10  countries  may  be  entered  at  a  time  in  the  interactive  mode 
for  historic  or  forecast  output  (and  it  is  suggested  that  no  more  than  three  be 
entered).  Only  one  country  may  be  entered  if  the  user  wishes  to  save  the  data. 
If  data  sets  are  to  be  saved  for  more  than  one  country,  then  each  will  have  to 
be  renamed  or  stored  by  the  user  before  another  country  is  entered.  If  this 
is  not  done,  previously  obtained  variables  will  be  written  over  and  lost. 

The  list  of  codes  and  country  names  in  the  program  is  more  complete  than 
the  countries  reported  in  IFS,  because  it  includes  a  number  of  countries  and 
regions  for  which  no  macroeconomic  data  are  available.  The  country  names 
available,  along  with  their  IFS  and  OASIS  codes,  can  be  obtained  within  the 
program,  and  are  reprinted  in  this  report. 

BATCH  MODE 

For  entering  more  than  three  countries,  or  for  less  expensive  processing, 
the  batch  mode  is  suggested.  An  interactive  program  prompts  the  user  for  the 
necessary  information,  then  directs  the  execution  to  the  high-speed  printers 
in  Room  190.  The  logon  procedure  is  essentially  identical  to  the  interactive 
mode,  except  that  a  size  parameter  is  not  needed.  The  COUNTRY .REPORT  program 
( ' ers75. er3rm. country. report. clist' )  allows  the  user  to  choose  either  batch  or 


interactive  processing. 
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The  program  prompts  for  the  following  information: 

1.  Standard  batch  jobname  of  8  characters.  (6  characters  required  by 
WCC  plus  a  suffix  of  the  user's  choosing). 

2.  10  digit  account  number. 

3.  Remote  terminal  where  output  is  to  be  directed  (RMT3  or  RMT13). 

4.  Priority:  1  —  weekend 

3  —  overnight 
13  --  ASAP 

5.  Job  class:  D  -  for  most  small  jobs,  up  to  10  countries.  F-when 
both  historic  and  forecast  data  are  specified,  or  for  large  jobs. 

I  (instead  of  D)  or  N  (instead  of  F )  are  required  if  xerox  output 
is  desired.  See  WCC  handbook. 

6.  Id  and  Password  to  access  grain  data,  available  from  World  Analysis 
Branch.  These  correspond  to  the  "OSF"  logical  group  of  TDAM. 

In  addition,  a  SPEAKEASY  CHECKPOINT  file  is  required,  containing  the 

following  variables: 

N  =  number  of  countries  or  regions 

NAME  =  ARRAY  (N,  3:  "  character  array  of  IFS  codes  ") 

COUNTRY  =  ARRAY  (N,  30:  "  character  array  of  country/region 

names  ") 

This  file  may  be  created  by  the  user,  or  more  easily  through  the  program.  The 
program  prompts  will  be  self-explanatory. 

The  program  allows  for  xeroxed  output.  A  separate  request  form  for  such 
output  must  be  submitted  to  the  terminal  operator.  The  xerox  request  form  can 
also  be  obtained  from  the  terminal  room  operator.  The  job  class  must  allow  for 
the  use  of  mountables  (magnetic  tape).  See  WCC  handbook  and  above. 


NOTE  ON  COSTS 

Because  of  the  OASIS  core  requirements  and  the  amount  of  data  which  is 
required  for  execution,  the  program  is  not  inexpensive  to  run,  especially  the 
interactive  version.  Thus  it  is  suggested  that  the  batch  version  be  used 
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except  when  quick  turnaround  is  desired  or  the  user  is  going  to  save  variables 
for  later  use.  The  advantage  of  the  program,  however,  is  that  it  saves  even 
more  costly  programming  time  required  to  retrieve  the  data  on  an  individual 
basis.  Although  actual  costs  depend  on  a  number  of  factors  and  cannot  be 
readily  estimated,  recent  program  runs  (March,  1981)  suggest  that  $15-20 
should  be  expected  for  one  country  using  the  interactive  version.  Batch 
runs  at  priority  1  should  cost  approximately  $4-8  for  one  country.  Expect 
additional  countries  to  add  about  60%  of  these  costs. 


COUNTRY . REPORT 
SAMPLE  RUN 


Creating  a  CHECKPOINT  file 


exec  °ers75.er3rm. country .report .clist® 

****  THANK  YOU  ERS75  FOR  USING  THE  "COUNTRY  REPORT"  PROGRAM  **** 


IF  MORE  THAN  3  COUNTRIES  ARE  BEING  PRINTED,  IT  IS 
SUGGESTED  THAT  THE  PROGRAM  BE  SUBMITTED  BY  BATCH. 

DO  YOU  WISH  THIS  TO  BE  A  BATCH  RUN?  (Y  OR  N):y 

**************************************************************** 


DO  YOU  HAVE  A  SPEAKEASY  CHECKPOINT  CONTAINING  A  LIST  OF 
COUNTRIES,  COUNTRY  CODES,  AND  THE  NUMBER  OF  COUNTRIES?  (Y  OR  N): 
n 


DO  YOU  WISH  TO  CREATE  A  CHECKPOINT  FILE?  (Y  OR  N) : 

y 

TO  DO  SO  IS  QUITE  EASY.  SIMPLY  ENTER  UP  TO  50  IFS  OR 
OASIS  COUNTRY  CODES,  AND  THE  PROGRAM  WILL  DO  THE  REST. 

BEGIN  —  ENTER  ONE  OASIS  OR  IFS  CODE  PER  LINE  (THEY  MAY  BE 
ENTERED  INTERCHANGEABLY)  —  TYPE  STOP  TO  END: 

:  *110 
:  *  1 1 1 
:  *156 
:  *158 
:  *122 
:  *124 
:  *128 
:  *  1 32 
:  *134 
:  *136 

110  111  156  158  122  124  128  132  134  136 
ARE  THESE  CODES  CORRECT  SO  FAR?  (Y  OR  N): 

y 

:  *137 
:*138 
:*142 
:  *144 
:  *146 
:  *1 12 
: *stop 

137  138  142  144  146  112 


ARE  THESE  CODES  CORRECT?  (Y  OR  N) : 

y 

THIS  LIST,  ALONG  WITH  THE  CORRESPONDING  COUNTRY  OR  REGION 
NAMES,  WILL  BE  SAVED  IN  A  SPEAKEASY  CHECKPOINT. 

PLEASE  ENTER  A  NAME  FOR  THIS  CHECKPOINT  (LESS  THAN  8  CHARS): 
sample 


THIS  LIST  WILL  BE  SAVED  AS  "ERS7 5. SAMPLE. SPEKSAVE" 

A  COPY  OF  THE  FILE  WILL  BE  PRINTED  IN  BATCH  SO  PLEASE 
ENTER  THE  REMOTE  TERMINAL  DESIRED  (RMT3  OR  RMT13) : 
rmtl3 


PLEASE  ENTER  A  STANDARD  BATCH  JOBNAME  FOR  THIS 

PRINTOUT  (EXACTLY  8  CHARACTERS): 

ers3rmxx 
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ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER: 


WHAT  IS  YOUR  PRIORITY?  (1  FOR  WEEKEND,  3  FOR  AVERAGE,  13  FOR  ASAP): 
***  NOTE  THAT  PRIORITY  13  COSTS  3  TIMES  PRIORITY  3  *** 

1 


************************************ 

JOBNAME=ERS3RMXX  AC  COUNT 
PRIORITY* 1 

* ** ** * ****** ** *** ** * *** ****** ** * ** ** 


IS  THIS  CORRECT?  (Y  OR  N): 

y 

TOP  OF  DATA  SET 

DATA  SET  NOT  LINE  NUMBERED 

JOB  ERS3RMXX( JOB06422)  SUBMITTED  **  FREE  ALL  FILES  ** 


YOU  MAY  NOW  CONTINUE  AND  PRINT  OUT  THE  DATA  FOR  THESE  COUNTRIES  IF  YOU  WISH. 
TO  DO  SO,  HIT  THE  RETURN  KEY.  TO  QUIT,  TYPE  —  QUIT: 


quit 

READY 
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exec  °ers75.er3mi.country. report .clist0 

****  THANK  YOU  ERS75  FOR  USING  THE  "COUNTRY  REPORT"  PROGRAM  **** 

IF  MORE  THAN  3  COUNTRIES  ARE  BEING  PRINTED,  IT  IS 
SUGGESTED  THAT  THE  PROGRAM  BE  SUBMITTED  BY  BATCH. 

DO  YOU  WISH  THIS  TO  BE  A  BATCH  RUN?  (Y  OR  N):y 

*************************** ************************************* 


DO  YOU  HAVE  A  SPEAKEASY  CHECKPOINT  CONTAINING  A  LIST  OF 
COUNTRIES,  COUNTRY  CODES,  AND  THE  NUMBER  OF  COUNTRIES?  (Y  OR  N): 

y 

PLEASE  CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS  FOR  OUTPUT: 
*********************************************************** 

**  HISTORIC  DATA  **  THIS  IS  THE  DEFAULT  **  ENTER  °HIST°  ** 

**  MACROECONOMIC  AND  GRAIN  DATA  ** 

**  FORECAST  DATA  **  TABLES  AND  GRAPHS  **  ENTER  °FORE°  ** 

**  PRODUCTION,  CONSUMPTION,  AND  NET  IMPORTS  ONLY  ** 

**  SIMPLE  LINEAR  AND  DOUBLE-LOG  PROJECTIONS  FOR  5  YEARS  ** 

**  BOTH  HISTORIC  AND  FORECAST  DATA  **  ENTER  °30TH°  ** 

*********************************************************** 

PLEASE  ENTER  ONE  OF  THE  ABOVE  OPTIONS: 

HIST 

ENTER  A  STANDARD  BATCH  JOBNAME  FOR  THE  BATCH 

PRINTOUT  (EXACTLY  8  CHARACTERS): 

ers3rm02 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER: 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS): 
rmtl3 

IS  THE  OUTPUT  TO  BE  ON  XEROX?  (Y  OR  N) : 
n 

WHAT  IS  YOUR  PRIORITY?  (1  FOR  WEEKEND,  3  FOR  AVERAGE,  13  FOR  ASAP) 
***  NOTE  THAT  PRIORITY  13  COSTS  3  TIMES  PRIORITY  3  *** 

1 

WHAT  IS  THE  JOB  CLASS?  (USUALLY  D  FOR  UP  TO  10  COUNTRIES, 

BUT  SEE  WCC  HANDBOOK  FOR  OTHER  CLASSES  IF  A  LARGE  NUMBER 
OF  COUNTRIES  IS  BEING  SUBMITTED): 
d 
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************************************************ 
JOBNAME=ERS3RM02  ACC0UNT=BEE3EBHI  R0UTE=RMT13 
FORM=1431  PRI0RITY=1  CLASS=D 
************************************************ 


IS  THIS  CORRECT?  (Y  OR  N) : 

y 

AN  ID  AND  A  PASSWORD  ARE  REQUIRED  TO  ACCESS  GRAIN  DATA. 
(THESE  CAN  BE  OBTAINED  FROM  ED  OVERTON) 

PLEASE  ENTER  ID: 

OK,  ENTER  PASSWORD: 

PLEASE  ENTER  THE  NAME  OF  YOUR  CHECKPOINT  FILE 
CONTAINING  THE  LIST  OF  COUNTRIES  AND  CODES: 
testsave 

TOP  OF  DATA  SET 

DATA  SET  NOT  LINE  NUMBERED 

JOB  ERS3RMO2(JOB06484)  SUBMITTED  **  FREE  ALL  FILES  ** 
READY 


USING  D  21  OR  V  ER  SION  08-01-79,  1100  (V3.01) 

USING  DATA  FILE  OF  03/14/81  AT  160027 


**  RECORD  NOT  FOUND  ** 


**  RECORD  NOT  FOUND  ** 


**  RECORD  NOT  FOUND  ** 


**  RECORD  NOT  FOUND  ** 


**  RECORD  NOT  FOUND  ** 


OK 

OK 

OK 


SPEAKEASY  III  NU  ••  8:06  PH  MARCH  17,  19 

SIZc(  ^5  0) 

INPUT..  .SIZE<  450) 

NO  ECHO 

ON  ERR  OR  (N  ONES  SAGE  NOTRACE  CONTINUE) 

RESTORE  TESTS AVE 

F  ROM  5:5  2  PM  3/13/81 
NAME  DUPLICATION  ON  RESTORE 

ID  ="■■■" _ 

PASSWD=,(MHHH” 

BRANCH*  ‘HIST* 

GET  BATCHRPT  ON  REPORT 
EXECUTE  BATCHRPT 


13 


• 

• 

fO 

• 

m 

• 

A 

H 

00  • 

• 

in 

O 

O' 

eg 

ao 

A 

CO 

A  • 

• 

• 

• 

• 

• 

• 

• 

t 

t 

•  • 

• 

o 

*S 

(M 

■g- 

>*  ^ 

ro 

O' 

fO 

A 

o  • 

• 

n 

nS 

00 

00 

m 

O' 

o 

't 

A 

eg  * 

• 

<> 

<M 

^4 

O' 

H 

A 

m 

m 

eg  • 

• 

H 

1 

O' 

«-4 

eg 

eg 

• 

S 

A 

• 

• 

Z 

• 

ro 

O 

• 

pS 

NS 

• 

m 

A 

O' 

eg  • 

H 

• 

CO 

O 

p- 

<M 

-4 

O' 

A 

P»  • 

(-4 

• 

• 

• 

• 

• 

• 

• 

• 

•  • 

Q 

• 

00 

A 

eg 

eg 

A 

<-* 

S 

>1* 

o 

e« 

N 

00  • 

Z 

• 

p» 

N 

00 

eg 

O' 

A 

o 

eg 

nS  • 

o 

• 

o 

A 

s 

fO 

S 

eg  • 

o 

•  _J 

1 

O' 

H 

eg 

eg 

•  < 

pS 

o 

t  3 

NS 

r 

•  I 

S 

• 

a 

•  < 

N 

• 

5 

t 

t 

NS 

n 

eg 

co 

i 

r» 

O' 

e* 

A 

s  : 

o 

• 

• 

t 

• 

• 

• 

t 

• 

•  * 

LU 

• 

N 

o 

m 

A  *-< 

f4 

eg 

o 

o 

-U 

O' 

A  * 

o 

♦ 

r- 

A 

eg 

o 

S 

o 

H 

CO 

O' 

— t  • 

X 

• 

O' 

*S 

0"4 

m 

S 

^4 

eg 

ao 

A 

eg  • 

o 

• 

1 

o 

— • 

~S 

< 

• 

sS 

r 

• 

1 

• 

A 

• 

O' 

• 

• 

04 

76 

5 

09 

eg 

0* 

r» 

iNi 

2  2 

• 

• 

t 

t 

• 

• 

• 

• 

• 

•  t 

t 

o 

-*• 

O' 

e»  <■* 

*■« 

A 

m 

O' 

p* 

eg 

A  • 

• 

• 

a 

.-4 

•-4 

cO 

2 

2 

3 

3 

£ 

r-4  • 

eg  • 

• 

p4 

i 

CO 

nS 

• 

• 

• 

NS 

• 

• 

• 

A 

<A 

V) 

*4 

00 

*4 

A 

a 

« 

• 

3 

3 

3 

3 

3 

3 

A 

• 

a: 

X 

a£ 

LU 

►« 

• 

•  <✓> 

LU 

K 

4 

OF 

$ 

A 

X 

LU 

LU 

flQ 

OF 

£ 

OF 

< 

•  p“ 

3C 

< 

£ 

£ 

P- 

•  NS 

< 

V) 

V) 

00 

_J 

_» 

3 

3 

A 

A 

A 

A 

•  Z 

3 

z 

Z 

z 

-J 

_j 

Z 

Z 

Z 

Z 

z 

•  3 

a 

a 

o 

a 

a 

o 

a 

O 

o 

Q 

« 

• 

►H 

NS 

►S 

A 

a 

3 

X 

X 

NS 

NS 

NS 

LU 

• 

oO 

_i 

_j 

X. 

LU 

LU 

-i 

-j 

-i 

p- 

• 

2 

-i 

_i 

-j 

8 

A 

A 

Q 

Q 

-j 

NS 

• 

NS 

nS 

Z 

Z 

i~4 

NS 

s* 

5 

• 

• 

> 

23 

23 

£ 

•X 

3 

3 

NS 

NS 

23 

23 

23 

t 

•  LU 

oO 

•  _i 

oo 

00 

*- 

lU 

H 

eg 

a 

S3 

►— 

Q£ 

h* 

a: 

8 

> 

QO 

A 

LU 

h- 

£ 

2 

•  NS 

♦  aC 

5222 

LU 

oO 

s 

< 

X 

2 

NS 

a. 

UJ  Q 

a. 

O. 

a.  • 

•  < 

LU  £ 

X 

3  LU 

LU 

X 

X 

a. 

& 

O  Z  Q 

z 

O  • 

•  > 

• 

> 

ns 

UJU2 

X 

LU 

LU  O 

3 

a. 

-g  o 

3 

O.  • 

14 


• 

• 

cm 

• 

• 

ao 

O' 

• 

• 

m 

>0 

in 

• 

t 

• 

• 

• 

• 

• 

t 

• 

• 

o 

3 

• 

pH 

3  >4- 

pH 

• 

CO 

n 

3 

• 

CO 

3 

• 

a 

O' 

• 

ao 

n 

3 

• 

o 

O' 

• 

• 

>0 

n 

n 

• 

3 

CO 

• 

• 

pH 

CM 

CM 

• 

• 

• 

• 

CM 

• 

t 

• 

• 

m 

• 

• 

• 

• 

• 

• 

3 

• 

• 

CM 

• 

O' 

• 

• 

H 

in 

in 

• 

3 

ao 

• 

o 

rO 

CO 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

o 

<N 

'O 

lA 

• 

pH 

3  CM 

CO 

• 

pH 

pH 

• 

ao 

'P 

in 

rf) 

• 

in 

O' 

• 

CM 

O' 

CM 

• 

O' 

T 

O 

• 

H 

t 

gj 

in 

• 

m 

• 

• 

pH 

CM 

CM 

• 

• 

• 

• 

CM 

• 

• 

• 

t 

3 

• 

• 

• 

• 

• 

• 

o 

• 

• 

3 

3 

• 

CO 

• 

• 

o 

CO 

• 

rO 

ao 

• 

n 

3 

t 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

o 

n 

3 

• 

>4* 

pH 

3  O 

CO 

• 

O' 

CM 

O 

• 

3 

-p 

in 

o 

• 

>4- 

O' 

• 

CM 

O' 

CM 

• 

O' 

T 

c 

pH 

• 

O 

*4* 

n 

t 

3 

pH 

• 

• 

pH 

CM 

CM 

oo 

• 

(M 

• 

• 

a £ 

• 

• 

t 

UJ 

• 

• 

• 

h* 

• 

• 

cn 

• 

x 

• 

• 

m 

• 

< 

• 

>1* 

O' 

• 

*0 

• 

3 

• 

CO 

in 

• 

cn 

CM 

CO 

• 

>* 

nO 

O' 

a 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

t 

• 

• 

O' 

O' 

3 

>f 

• 

N* 

•H 

pH 

3 

CO 

• 

o 

O 

o 

• 

r- 

in 

in 

ao 

• 

*4- 

O' 

• 

ao 

rO 

n 

• 

O' 

1 

O' 

• 

pH 

• 

n 

>4* 

• 

O' 

• 

• 

pH 

CM 

CM 

• 

• 

• 

3 

• 

• 

• 

• 

• 

• 

a 

Q 

t 

• 

• 

• 

£ 

• 

• 

o 

PH 

o 

3 

• 

• 

CM 

pH 

-4 

o 

• 

• 

CM 

CM 

• 

• 

3 

n 

n 

cL 

3 

2 

3 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

3 

3 

£ 

• 

<o 

* 

in 

• 

>4- 

3 

H 

3 

eg 

• 

CO 

O' 

>o 

PH 

• 

3 

in 

>4* 

O' 

• 

cn 

O 

• 

CM 

>0 

O' 

a 

3 

• 

O' 

l 

n 

• 

pH 

• 

n 

n 

3 

a 

to 

• 

pH 

O' 

• 

• 

H 

CM 

CM 

00 

• 

pH 

• 

• 

a 

a 

a 

• 

• 

• 

z 

z 

PH 

• 

• 

• 

3 

3 

3 

• 

• 

ao 

t 

00 

t 

• 

O' 

• 

to 

to 

3 

• 

• 

3 

p4 

m 

3 

• 

t 

a 

CO 

• 

t 

O' 

3 

3 

< 

5 

3 

< 

• 

• 

• 

§ 

t 

• 

• 

• 

• 

t 

• 

• 

>- 

z 

3 

• 

O' 

pH 

>1- 

<M 

• 

in 

H 

pH 

CM 

M- 

• 

n 

O' 

o 

3 

00 

• 

• 

& 

* 

* 

5 

• 

• 

□ 

O' 

• 

• 

5 

s 

a 

H 

5 

2 

3 

• 

3 

CM 

t 

t 

3 

CM 

CM 

z 

X 

3 

< 

• 

CM 

• 

• 

3 

X 

O 

PH 

• 

• 

t 

O 

00 

3 

o 

• 

• 

• 

u 

3 

3 

o 

3 

z 

o 

>  O 

< 

z 

< 

• 

• 

• 

< 

3 

< 

3 

O 

a 

z 

• 

• 

l/l 

$ 

<* 

00 

• 

t 

• 

• 

«* 

n 

4* 

O0 

4* 

00 

3 

3 

O0 

22 

9 

PH 

3 

3 

• 

3 

3 

3 

t 

• 

3 

3 

3 

z 

3 

>  a 

s 

o 

t 

X 

# 

CL 

X 

• 

3 

CL 

o 

3 

<* 

3 

3 

• 

UJ 

LL 

LL 

U. 

• 

00 

oo 

3 

3 

• 

OF 

3 

3 

tV 

o 

58 

1 -0 

• 

#-• 

a 

a 

□ 

• 

x 

X 

3 

3 

• 

a 

O 

S 

3 

to 

to 

2 

3 

• 

cL 

1 

< 

3 

£ 

£ 

t 

3 

< 

3 

3 

3 

H  c£ 

o 

1-4 

• 

< 

i/O 

00 

I/O 

• 

3 

3 

3 

3 

• 

00 

00 

</> 

a 

Z 

3 

3 

H 

3  3 

3 

2 

• 

3 

z 

z 

z 

• 

3 

3 

2 

Z 

• 

2 

z 

Z 

o  o 

< 

< 

3 

3 

3 

• 

a 

o 

o 

3 

• 

O 

O 

• 

o 

a 

o 

z 

PH 

3 

X 

X 

£  3 

< 

t 

• 

3 

PH 

PH 

• 

oo 

Q 

Q 

X 

X 

• 

PH 

P-t 

pH 

a 

3  £ 

3  < 

Z 

• 

X 

3 

_j 

3 

• 

X 

3 

3 

• 

3 

3 

3 

< 

PH 

3 

3 

00  3 

X 

• 

< 

_J 

3 

3 

• 

a 

oo 

co 

Q 

g 

• 

3 

3 

3 

3 

Z 

g 

S£z 

3 

• 

UJ 

PH 

PH 

PH 

• 

Z 

z 

• 

PH 

PH 

PH 

O 

3 

3 

z 

z 

3 

• 

> 

CO 

CO 

£ 

• 

2 

3 

3 

PH 

PH 

• 

3 

3 

3 

z 

3  a 

2 

< 

o  oo  a 

Z 

• 

t 

§ 

< 

i- 

X 

3 

PH 

3 

z 

00  O 

o 

3  a  3 

• 

• 

• 

< 

PH 

X 

X 

X 

3  Z  < 

•  • 

UJ 

• 

oo 

• 

• 

3 

3 

3 

3 

<  ~  3 

3 

_J 

» 

00 

i/) 

3 

3 

• 

rH 

CM 

• 

a 

it 

3 

>  3 

a 

3 

• 

t 

h- 

ac 

at: 

8 

2* 

• 

• 

wl 

3 

3 

£ 

• 

• 

2 

II 

oo 

II 

H 

5  "  & 

5 

ph 

a£ 

• 

• 

5222 

3 

oO 

• 

• 

322 

PH 

3 

• 

• 

3 

a. 

a 

a. 

0. 

3  • 

3 

O 

3 

•> 

II 

3 

3 

2J 

3  §  3 

8 

< 

• 

UJ 

£ 

X 

3 

3 

• 

3 

X  X 

a. 

CL 

• 

o  z  a 

z 

O  • 

o 

cL 

00 

1- 

3 

II  X  II 

> 

• 

> 

PH 

uj  o  a: 

• 

3 

3 

3  O 

3C 

• 

a. 

pH 

o 

3 

CL  • 

< 

3 

X 

< 

< 

3 

< 

• 

t 

• 

CL 

00 

3 

X 

X 

3  0  3 

3 

3 

UJ 

X 

* 

z  O 

2* 

ao 


CO 


UJ 


6$ 


15 


OJ 

CO 

Z  C* 
3  X 

2T 

o  o 

M  US 

•t  r»  r- 

O  m  IS  ®  O' 

9  -1  (A  « 

o  ® 

1  ®  o 

-5  HI 

O  h- 

r-  o 

O  >f  o 

®  o  o>  r-  <m 

o  r*> 

®  ®  M 

B  (*> 

-1  O'  o 

1 

o 

9  is 

-Art 

O'  -<  3  .*  > 

®>  M 

(SI  (SI  9 

O  US 

(*S  H  US 

>  b- 

^4  ►* 

O'  P» 

is  9~  is 

O  O  <9  9  ^ 

t>i  i  a  i 

DIMM 

3  O 

UJ 

-4  *4 

<N  pi  (SI 

4N  44  4 

i  n  (•)  n  (•! 

(SI  fO  f<l  (^)  -t 

3  K 
“» 

z 

Z  8 

CO 

z 

5 

o  a 

?£ 

8- 

> 

*4  ►“ 

-i  a. 

UJ 

2  z 

z 

1 

CO 

Ob 

3 

z 

r 

<  O  O 

a  -o  -t  m  o 

O  4  (O  O  lA 

O'  O  O  bf  bt 

•4  rn  r*  <40  eg 

3 

o  *- 

<0  *4 

4  CO  4 

NOMB-f 

m  f-  r»  9  m 

^  US  (SI  1  O 

n  z  o  o 

<M  3  (SI  "1 

r»  O  <M  o  M 

4# 

•too 

O  (SI 

mis  bf 

z  a  >-  -i  t- 

<N  bf 

(t  H  bf  Ift  Ifl 

r»  « 

ro  44  #4 

(sit)  tisim 

•< 

a  m 

UJ 

Oi 

$ 

a  >• 

z 

IS 

as 

2 

«  -t  US  ® 

N^N-r  o 

<si  ift  K  t*s  ** 

o>  ® 

9  IS  pi 

*-  IU 

o  o 

«t  O 

1  o  ® 

o  p»  o>  ®  t* 

rr\  ® 

bf  NN  B  9 

r 

CO  It 

O  K 

o  (N  »  O' 

©  fO  ^  o  <o 

fO  (SI  KS  (SI  M 

IS  n  MM  ® 

o 

O 

2  2 

9  m  o- 

®  f»  O  -*  *1 

» 

aa 

O  ®  O* 

t 

OWN1N 

*4  *4  m4 

pi  -1  INJ  (V 

OJ  -4  94 

(SI  (SI 

rg  rg  eg 

K 

o  o 

UJ 

< 

o  u. 

z 

K| 

*4 

9 

*4 

CO 

CO 

3  >- 

Z 

<N  m 

bf  M 

4  lC\  4  (> 

-1  (SI 

o  >  >t 

BOONt 

m  5  o  m  o 

3 

•<  at 

o  a 

f»  o 

O  -f  ffl 

-tONibf 

14  03 

rg  -4  eg 

K  O 

2 

9  is  * i  is  ® 

MO.fi® 

ro  n 

IN  9> 

<3Q  go 

us  ■*  n 

O 

O  0. 

o 

<>  /*• 

IS  >  (N 

O  O  >  3  (* 

9  O 

D  f»  *1 

Js  o 

NM 

z 

X 

#4  ^ 

*■4  *4 

N  H  N 

<N  ru  4  4  p4 

-i  m 

(i>  (VI  dA 

(SI  «  «S  91  -t 

< 

UJ 

UJ 

z 

V 

-J 

a. 

a. 

CO 

co 

3 

3  h- 

z 

Cl 

<  at 

o  o 

o  o 

1 

r-  m  m  in  fi 

r»  m 

(SI  (SI  bt 

N-f  Nbfbf 

v-  a 

O  h* 

n  >r 

4(ON 

<N  rg  <\i  go  ru 

(SI  (SI 

®  ®  Its 

rg  u*v  in 

a  a 

o 

m4 

*4 

t-  z 

-4  h- 

>4 

S 

Cl 

1 

z 

>  ® 

not) 

'Oilflflfl 

r\l  »4 

0  9® 

r*  >t 

9  O'  (N 

a 

o  a 

fO  *4 

44  eg  *4 

m4  b*  fi  a  ® 

®  ® 

9  O'  9 

00  2 

11  1-  o 

Sz 

85323 

^  4  N  ^  O 

33 

\f\  >t  a o 
<0  ® 

sf  sO 

flO 

S81? 

o  a 

*4  K> 

in  (N 

is  is  is 

(O  ^  ^  fO  (O 

■*  * 

-f  bT  in 

us  n 

>r  u>  >0 

at  i 

UJ 

a.  h> 

z 

CO 

UJ 

co 

2 

—  o 

>  N  .f 

<N  (SI  9  O  3 

#4  r*> 

®  (n  > 

9  i 

i  ®  9 

•< 

1 

too 

,Nfl« 

O  O  ^  (O  © 

f»  o 

•f  -n  n 

(SI  0* 

9  bf  n 

z 

U  O  t- 

-t  » 

JO  />  O 

^  ^  *4  ^ 

ro  ao 

eg  ru  co 

•4  eg 

O  1  IS 

<S) 

>-•'3  0  0 

00  (JO 

N  f  f 

(1  (0  f>  -f  -o 

(SI  9 

9  O'  1 

«  o 

in  n  .»■ 

3  Z  m 

—  ►» 

IS  IS  IS  <N*  fN 

m4  ^4  ^  rg  CU 

<N  <N 

94  94 

•4 

IS  N  (N 

a 

OJ  11  1/) 

UJ 

LU 

®  Z 

z 

h- 

»4 

Z 

3 

<3 

b- 

9*  ®  (N  e  9 

m  ® 

ns  ,-n  « 

bt  9  ® 

d 

v.  a 

>-  <3 

3  3  $  P® 

fSpjSS 

ass 

88 

1  O;  9 
pi  N  (S| 

■4 

z  X 

> 

(SI  (SI 

N  1  N 

<SI  m 

2 

2 

2 

<  i 

h» 

O  K 

2  8 

2S8 

182338 

8  3  3^3 

oj  m 

us  is  (si 

9  O'  O' 

^  5  a  8  td 

82 

3  88 

8858^ 

N  -1 
>  > 

o>  .t  -1 
i  9  « 

9  >  ®  (N  O 

®  9  (N  n  ® 

<  i 

>>il 

(M  »4 

4  N  N 

N  N  <M  4  4 

4  *4 

eg  eg  rg 

rg  ej 

rg  eg  rg 

at 

<1  N 

®  bf  in 

9  p»  ®  !jb  a 

*1  (SI 

m  -t  m 

9  f*» 

ao  O  o 

5 

8  8  8  88 

8  8  8  8  5 

>  ^ 

f  ^ 
^  ^ 

r- 
o  o 

r*  r*  cp 
^ 

> 

b-i  «4 

i4  *4  4 

^4  4  4  H  4 

4  4 

4  94  4 

•4  #4 

^4  *4  #4 

GAIA  SOURCE:  FAS  DATABASE 
DATE  =  8.1014E8 


16 


UJ 

00 

• 

5  *■ 

z 

• 

3  X 

O  O 

o  p~  r»  o> 

•  in  o-  pu  o  in 

OPrtoO 

7  " 

a  t- 

lA  O'  ~4  <+  *t 

O  -0  A  O'  -J 

•  ®  «  o  r-  ^ 

^  ^  >0  »/>  o 

l 

>  H 

o 

©  •*  (*\  A  (*> 

CO  8)  (0  O 

•  O'  a  r*  o  o 

pg  pg  pg  O'  pg 

*4  H  H  H  ^ 

4  H  H  H  H 

•  H  H  H  N  N 

• 

pg  pg  pg  pg  pp> 

-1  O 

UJ 

3  *- 
“> 

X 

• 

• 

• 

5 

• 

• 

• 

8£ 

• 

• 

1  U. 

o 

• 

> 

p4 

• 

JUL 

IMP 

• 

• 

• 

• 

1 

to 

• 

• 

a. 

_j 

z 

• 

z 

-t 

o  a 

• 

3 

t-  o  ^ 

• 

vl  z  o  o 

t 

• 

Z  a  H  ->  K 

• 

•  UJ 

q  *■* 

UJ 

• 

•  a 

O  h> 

X 

• 

•  44 

• 

•  0 £ 

•  u. 

a  a 

V) 

• 

•  a 

44  UJ 

Z 

t 

h*  UJI 

o  o 

p*  p»  ?*•  «  -g 

o>  o>  o  a  a 

•  a  pg  -o  (A  pi 

o  -g  ®  pj  O 

•  z 

•  o 

oo  a. 
at 

8H 

J  $  £  8  8 

o  **  fO  04 

•  q  ®  -t  ®n* 

•  rO  pg  rA  -T  pp» 

-*  a  «  pg  o 
®  pg  3  ®  f“ 

•  44 

*4  4- 

p4  #4 

*4  *4  «4  4*  *4 

•  ^  ^4  ^4  ^4  *4 

4  4  4  4  4 

•  H 

o  S 

UJ 

• 

•  < 

a  u. 

X 

• 

•  fM 

• 

•  1-4 

•  -J 

4 

•  M 

•  K 

to 
-J  H- 

3 

• 

• 

♦  3 

<  « 

o  o 

®  o>  a  f*  ® 

O'  O  *4  O 

•  ®  «  r»  r»  >f 

in  P  pg  C 

1-  O 

3  b- 

pn  »g  ®  ®  *g 

00  *4  O  f*. 

•  o  ®  o  O 

O  gs  n  O  O 

•  a 

a  cl 

o 

p»  ©  ®  r» 

•  ®  ®  pg  p» 

pg  pg  >f  r»  ^ 

•  z 

t-  X 

•4  ^ 

H  H  4  p< 

^  *4  ^4  ^4  *4 

•  444N4 

(N  (N  N  <N  lO 

•  < 

UJ 

UJ 

• 

X 

• 

•  > 

• 

•  -j 

•  a. 

• 

•  a* 

to 

00 

• 

•  3 

-1  H- 

z 

• 

•  00 

<  Qtf 

o  o 

• 

>-  a 

O  ►- 

(O  H  H  lO  N 

r-  ® 

•  ®  r»  p- 

(O  lO  to  (O 

◦  a. 

o 

*4  *4  <M 

t  O  4 

H  X 

~4  t— 

• 

at 

• 

X 

• 

• 

1 

00 

• 

z 

• 

S 

se 

SSSS  5 

S8$S£ 

•  ®  ®  -t  fs  o 

*  ®  pg  fn  O  ^ 

SSPiS?: 

5  z 

o 

h-tNCU 

®  o  +  o  r*» 

•  ®  ®  o  o  o 

r*  h  n  n  n 

a  a 

*4  4* 

•*  N  N  N  N 

PJ  pg  (A  P<l  pg 

•  pg  pg  p>  ^ 

iO  (O  ^  "f  ^ 

is 

if 

• 

• 

• 

•  00 

4 

•  -J 

to 

4 

•  F- 

i 

uO 

z 

4 

•  < 

x  o  a 

O  H 

-g  ®  pg  rg  © 

•  *■»  rg  P»  A  pg 

a  g  f  p  a 

•  H- 

z 

o  a  b- 

<n  r»  a  >#■  a 

r»  r-  rg  ®  n 

•  p  p  a  n  pi 

o  p  r»  pi  g 

•  %0 

-g  o  o  o 

<P»  _«  rg  pg  pg 

N  M  N  CW\ 

•  -o  pi  pg  pg 

pg  pg  ®  O  ® 

• 

O  Z  h-  -*  »- 

4 

«4  #4  4 

•  a 

at  h  to 

Ui 

4 

•  UJ 

as  z 

X 

• 

•  4* 

•  M4 

•  z 

4 

•  3 

9 

n  a 

3S3  1 

(M  o  oS  CO  O 

4  >0  N  >0  4« 

•  iA  J  UO  CD  ® 

•  8)  90  >f  tn 

®  ^  r»  ®  o> 
-5  pg  A  pg  p* 
p»  -f  A  P*  A 

jJ 

»—  at 

r»  ^  pg  PP| 

A  C*  ©  ■?  « 

f4 

X  X 

> 

n  n  n  i<i  rt 

(O  tO  (O  (O  (O 

•  (O  fO  (O  <o  (O 

4 

4 

(O  fO  (O  ^  tO 

<  l 

b-  O  b- 

®  ®  P*  PI  A 

O  NP4  rt  g 

4 

4  >0  >0  <©  >f  o 

g  o  h  ■p  pi 

S3 

00 

at 

8tf 

_  <N|  Pg 

■J  f«-  r-  r-  r* 

O'  o  in  -o  pi 
r-  p-  o  ®  r» 

•  P>  pp>  IN 

•  ^  r»  ®  o  •* 

Q  -p  O  O  PO 

3o>nppi 

<  X  >  •*  X 

4  4  4 

4 

4 

4  4  4  4 

ae 

-p  rg  fl  -f  A 

OMDJ'Q 

4 

•  HNO  'firt 

®  ®  O'  o 

2 

<£  &  <$  <$  <$ 

>o^o>o£f 

4  r**  f*»  ^  ^ 

4  ^  ^  ^  ^ 

r»  p«.  r-  r-  « 
^ 

> 

•4  ^4  ^4  ^  ^4 

~4  *4  ^4  ^4  #4 

4  *4  ^4  *4  ^4  <4 

4 

4 

444^4 

DATA  SCURCE:  FAS  DATABASE 
DATE  «  B.lOl^EB 


17 


LU 

h* 

• 

• 

• 

• 

5  X 

o  o 

•  o  k  •*  ~c 

•  in  CO  B  -0 

•  MHNh» 

•  «-OONrt 

-5  UJ 

o  4- 

•  *\  <n  r-  «■<  p 

•  >t  H  o  (N  ^ 

•  in  O  K  in  Cl 

lo^^no 

t 

o 

•  m  m  »■  r»  ■> 

•  ff>  P-  O  IN  + 

•  r»  -o  -t  o  ci 

•  il>  N  ^  <0  fO 

>  *- 

*■4  >• 

•  .*  m  in  K  in 

•  O  9*  O  O  O' 

•  O  in  +  -t  -Q 

•  O  IN  B  •*  -t 

-1  o 

UJ 

1  «4  •<  >4  >4  r\| 

•  <M  -*  "*  *4  -< 

•  IN  Cl  ■*■  fO  < 

•  <n  ®  in  K  K 

3  K 

X 

• 

• 

• 

• 

“» 

• 

• 

• 

• 

• 

• 

• 

• 

UJ  «/> 

ut 

• 

• 

• 

• 

• 

• 

• 

• 

5=> 

o5 

• 

• 

• 

• 

• 

• 

• 

t 

?£ 

8K 

• 

• 

• 

• 

• 

• 

• 

• 

> 

^  h- 

• 

• 

• 

• 

-i  a. 

UJ 

• 

• 

• 

• 

32 

X 

• 

• 

• 

• 

• 

• 

• 

• 

Z 

** 

• 

• 

• 

• 

• 

■< 

•  |  i/t 

• 

• 

• 

• 

X 

•  a.  _i  z 

•  43  ®  -4  43  Cl 

•  >0  O  IB  id  *4 

• 

NiNiB»n 

•  O  O  -0  IN  IN 

O 

•  x  <  o  a 

•  b  k  o  b  »• 

•  <N  B  O  CO  m 

• 

ooaofl 

•  K  IN  •#  -0  iZ 

•  3  KOH 

•  m  B  —  00  o 

«  trt  ®  K  ®  ® 

• 

O  Cl  <t  ■*  -c 

•  IN  IN  Cl  O  Cl 

UJ 

•  <n  z  o  o 

•  -4  CO  B  <N  m 

•  n  K  IN  «  -0 

• 

•C  IN  »■  in  IB 

lfl»CP<4 

*/> 

•  Z  O  >-  «4  H 

•  -4  O  O  O  K 

•  N  04 

• 

Cl  if  Cl  O  »4 

•  4  H  Cl  f  Cl 

x 

•  ◦  M  JJ 

I  H  H  H  ^4  H 

1  H  H  H  ^  H 

• 

H  H  H 

•  *"4  *4  0*  *4  ^ 

3 

•  O  K  x 

• 

• 

• 

• 

• 

• 

• 

• 

• 

& 

• 

•  o  a  £ 

*MUi  Z 

• 

•  ^  h  •O  ©  ^ 

• 

• 

•  ^  <C  0*  ©  o 

• 

• 

• 

•#  i*>  ®  e  o 

• 

•  o  m  m 

•>-04  o  O 

•  «  >0  b  Cl  * 

•  «  «f  K  f*  « 

• 

0S«<4ClO 

•  B  —  B  « 

z 

®  <✓>  a>  o 

•  141  #1  >f  rt  o 

•  K  -O  «4  K 

• 

IN  l^  IN  B  O 

•  Cl  Cl  IN  ®  K 

o 

:*«  2h 

•  <f  ->  &  -0  © 

•  NN*4p<n 

*  9-  IN  K  -{  -4 

• 

K  ®  ®  -4  * 

B  B  iB  IV  (B 

•  c  «  h  4  ib 

*0 

•  in  Cl  r*\  4  -t 

• 

*  ci  ci  m  -e  m 

►* 

•  O  o  111 

•  A* 

%  ^  ^  ^  a4  ^4 

• 

^  ^  ^4 

9  t*  *4  *4  9*4  c* 

< 

<  a  i  x 

• 

• 

• 

• 

IN 

• 

• 

• 

t 

1 

M 

_i 

• 

• 

• 

• 

• 

** 

•  m  (/» 

• 

• 

• 

• 

►- 

•  -1  >-  z 

•  O  IN  <41  <*  B 

1  -4  N  C  B  N 

• 

in  K  »■  ir\  k 

:  2  ?  s  s  s 

3 

•  <  X  o  □ 

•  B.fBN-4 

IO®OW<4 

• 

-O-f  ilNCI 

•  >-  a  o  *- 

•  IN  IN  B  B  f> 

•  K  ®  o  »  -0 

« 

4h  0»0 

•  B  IN  -•  Cl  Cl 

O 

•  a  a.  5 

•  <n  n  B  o  m 

•0  0  4}®® 

• 

•*  ®  o  m  o 

1  O  4)  O  H  f 

z 

•  K  X  -«  4- 

•  <N 

• 

in  ci  if  o  in 

•  IB  ift  P  1*  f* 

< 

•  UJ  LU 

• 

• 

• 

• 

•  X 

• 

• 

• 

t 

> 

• 

• 

• 

• 

• 

-1 

a 

• 

• 

• 

• 

• 

a* 

•  </l  </> 

• 

• 

• 

t 

3 

•  — 1  >-  z 

• 

• 

• 

9 

•  <  X  O  o 

•  «  IB  N  IB 

*  H  «  N 

• 

Cl  N  4  f  C 

•  9-  •*  -4  in 

•  1-0  OK 

•  k  ®  o  in  -o 

• 

f  -f  N  IfCI 

*  >f  O  >o  o  m 

•  o  a.  o 

*  r  t  ** 

•  rO  *■*  rg  <0  r0 

• 

•  f\j  rj  (*)  <n 

• 

• 

• 

C»  >f  IN  «#  >f 

•  m  (**>  eg  m  <ni 

• 

• 

•  Vi 

•  1  z 

• 

t 

•  o  m  >0  r- 

t 

• 

•  -«  rg  -4  eg  >0 

•  N  N  ©  ©  O 

• 

• 

• 

o  ci  p»  m  >* 

• 

• 

• 

b  -  o  b  4 

•  a  o  S 

•JOCf  O 

• 

Cl  »4  !*•  O  'f 

• 

T  ©  © 

:Sz  8^ 

:f£$3!<)3 

•  p  f  N  O  4 
•ONBCO 

# 

• 

$8$  $* 

• 

• 

3  In  ?n  3  8 

•  o  o  K  k 

•  BIN'f  <M^ 

•  f  O  B  O  f 

• 

00  CO  CD  CO 

• 

f  O  IN  ci  a 

•  £t  M  0J 

•  CL  h-  X 

• 

• 

• 

• 

• 

• 

• 

• 

• 

uo 

• 

• 

• 

• 

• 

IS 

•  n  f  n  »f  <n 

• 

•  ©  >e  >  ©  r* 

• 

• 

B  (N  Cl  f  O 

• 

• 

O  o  IN  IN  C| 

< 

•  1  X  o  o 

•  in  (*►  K  in  k 

l<4(Nf  OJ> 

• 

O  9>  Cl  •*  ® 

• 

d  in  o  «r  r» 

•  Z  O  O  K 

*  'f  -O  -O  O  -f 

•  N  B  B  -4  o 

• 

4B  4  O  f 

• 

Cl  o  >f  IN 

LO 

•  ►4000 

•  r*  lo  ao  co  -* 

lOBBhO 

§ 

rg  ^  -4  -4  tn 

• 

K  O  -4  43  (N 

•  O  Z  K  -4  K 

•  c»  -o  »n  -0  <n 

•  >f  Cl  ^  4  $ 

# 

Of  C|IN4 

• 

-4  ci  ~r  -r  in 

O 

•  vll  44  OJ 

• 

• 

• 

• 

LU 

•  B  Z  X 

• 

• 

• 

• 

K 

• 

• 

• 

• 

• 

z 

• 

• 

• 

• 

• 

3 

•  O  K 

•BCIf  -fN 

i»f H04 

• 

<*>  ^  ^ 

• 

NNMM* 

•  -i  v  a 

•  UJ  *■»  Jj 

•f  Of  OB 
•  O  <N  O  43 

•  O  ^  O  IN  ® 

1  i  f  f  4  B 

• 

• 

• 

• 

3  3  SIB  5? 

•  *+  XX 

•  > 

• 

• 

•  eg  (O  <o  ro  co 

• 

• 

•  O  ci  C|  *  Cl 

• 

• 

• 

• 

• 

■f  •*  -t  m  >r 

t 

• 

• 

►f  >f  m  -t 

• 

!< 1 hOh 

iassisa 

• 

• 

• 

4  {►  #  B  B 
Cl  K  IN  B  N 

9 

9 

9 

:ssa8tf 

•  eg  o  *+  O  >t 

•  rO  <N  r0  O  <> 

•  fo  r*  ~4 

•  o  **  &  &  o 

• 

• 

-O  (O  ©  ©  © 
co  co  ^  O  eg 

9 

9 

Bf  IN  -4  ®  ^ 

Cl  -f  Cl  -4  O 

•  <  r  >  -4  x 

•  ^  "f  -t  Cl 

*f f mnf 

• 

►r  ci  «r  ^  ^ 

9 

►f  4  -t 

X 

2 


~9  Cg  <*\ 

'd  ^  ^  O  -O 
&  ^  ^  ^ 


>0/^00  0  0 
$£  ££5 


^  eg  rO  >*■  g> 

^  r»  r»  r*  r» 

<j*  &  <>  <>  <> 


>o  r*  «  o  o 

f»  ^  f*»  GO 

^  ^  vj*  <> 


DATA  SOURCE:  FAS  DATABASE 
DATE  *  8.1014E8 


18 


UJ 

WO 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

S  “> 

z 

•4N«00 

•  a  •+  o  o  « 

•  bkipnn 

•  mm 

■o  o  pi  • 

3  x 

o  a 

•  P»  N  5IHN 

•  <n  -o  n  u>  n 

•  N4  N^4 

«  ®  o  • 

• 

* 

7  " 

O  K 

•  o  o  pi  a 

•  h  P  iH  (HP 

•  a  o>  r*>  o 

*  O'  O' 

•?i-o  • 

f 

o 

•m}090 

•  IN  m  IM  p»  O 

•  0 1«p>f  o 

•  ®  m 

-Irtffi  • 

• 

• 

>■  *- 

*4 

H- 

*  4  o  n  no 

IH1CPOO 

•  f-  ® 

O  -4  ~4  • 

-1  o 

UJ 

• 

• 

• 

• 

• 

• 

3  1- 

Z 

• 

• 

• 

• 

• 

-i 

• 

• 

• 

• 

• 

* 

» 

• 

* 

ai  i/i 

1/1 

• 

• 

• 

• 

• 

• 

» 

Z  3 

z 

• 

• 

• 

• 

• 

5 

o 

a 

• 

• 

• 

• 

• 

• 

• 

?  £ 

s 

K 

• 

• 

• 

• 

• 

• 

• 

t 

• 

• 

* 

* 

> 

• 

• 

• 

• 

• 

-1  CL 

UJ 

• 

• 

• 

• 

• 

• 

# 

2  * 

z 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

* 

* 

i 

a. 

z  <  o  a 

3  HOh 

m  z  o  © 

Z  O  K  K  K 


i/l 

S  o§ 

Ex  3 

O  O  -•  K 

ce  h  iu 

a.  k  z 


•<  I  K  3  K 

2523^ 

<  X  >  —  X 


on 

3 


«*  *  HI  •*  PI 
KlfHlflO 
ffl  IN  PI  fl  -• 

in  o  o  m  o 
OOON 


fU'Of'OO 

34  m  k  i  in 

5SS**) 

o  -o  r-  m  ® 


•  in  £ 

• 

•  ^  ^ 

• 

• 

•  -4  >t  r*  o  fO 

•  1  *03 

•  -o  in  0  m  o 

•  n  o  -o  n  m 

•  z  OOP- 

•  -4  ®  m  ®  r- 

•  «  o  o  o 

•  -c  **  fM  >o 

•  ®  >  in  in  m 

lOZP-P 

•  m  o  »  ®  n» 

•  n  -t  -a  i—  i— 

•  UJ  1-4  wo  UJ 

•  -4  m+ 

• 

•  tax  x 

% 

• 

• 

• 

•  a  b- 

• 

•  if  N  ^  © 

• 

•  m  ao  r*  o  oj 

•  -A  "N  O 

•  3  p-  aj 

•  «  Z  X 

18ZZSS 

•  > 

•  NN  Nrirt 

• 

• 

^  ^  S5FS 

r»  ■£  <n  «  in 
<tONOO 
-o  ~o  O  -O  -O 


$  $  $$$ 


O'  —  CO  1*1  ® 

in  o>  o>  o>  o 

oo  «  j  «i  ru 

n  n  n 


< 

•  a  m 

UJ 

• 

• 

►- 

•  O  K 

z 

• 

• 

• 

• 

• 

o 

• 

• 

• 

• 

• 

• 

• 

» 

• 

• 

• 

• 

• 

• 

• 

» 

& 

•  O  Q 

•  H  UJ 

$ 

• 

•  <SJ  CD  co  >f  (\4 

• 

•  'O  *0 

• 

•  **  >r  -*  *  >t 

•  O'  IN 

f  (ff  • 

• 

• 

•  ^  Ui 

o  o 

•  m  o  o»  n  K 

•  4  o  4  m 

•  IN  K  ®  O'  O 

•  m  >t 

o  ®  >p  • 

z 

•  </)  UL 

o  >- 

•  ®  in  m  in  k 

•  ®  i>  n  «p 

•  O'  k  o  m  m 

•  m  o  r»  >  m  • 

• 

# 

a 

M 

2k 

•  -*  ®  ~o  m 

•  ■o  m  m  m  n 

•  m  in  ®  m  m 

•  p*  «  p-  •+  n 

•  m  in 

•  4  4 

sas  : 

• 

* 

i- 

•  o  o 

UJ 

IHU  UHU 

«mh*whu 

»  H  H  ,W  H  H 

*  H  H 

~4  n-4  • 

X 

•  OIL 

z 

• 

• 

• 

• 

• 

• 

• 

K! 

• 

• 

• 

• 

# 

• 

P-4 

• 

* 

-J 

• 

• 

• 

• 

• 

• 

•  l/) 

wo 

• 

• 

• 

• 

• 

* 

• 

i- 

•  J  H 

z 

•  «  ®  m  cn  p. 

•  H  -f  4  N  ill 

i-fP4>4{ 

•  fp 

o  n  r»  • 

3 

•  <  OC 

o  o 

•  m  n  -p  ®  m 

•4P^mn 

•  ®  -•  O'  m  o 

* 

* 

•  *-  O 

2  •" 

•  ®  ®  -*  m  o 

•  Q  tf>  CO  O 

•  <N  m  <N  sO  ^ 

•  <M  ^  CO  >Q 

•  rg  O 

•  n  >4 

-4  f  »  • 

a 

•  a  a. 

o 

•  n  m  m  a  o 

•  CO  o 

lA  *4  CO  • 

* 

* 

z 

•  •-  X 

K  K 

•  nn^-fin 

•  vp  m  m  m 

•  >f  h  n  4  ® 

•  p»  ® 

&  0*  **  • 

< 

•  UJ 

UJ 

• 

• 

• 

• 

H  pJ  • 

* 

• 

>• 

• 

• 

• 

• 

• 

• 

* 

* 

_i 

a. 

• 

• 

• 

• 

• 

• 

# 

• 

a. 

•  </* 

• 

• 

• 

• 

• 

3 

•  Jh 

Z 

• 

t 

• 

• 

• 

* 

• 

wO 

•  <  SC 

o  a 

•  —  -o  o  p*  <n 

•  ®  o  m  -•  ® 

•  -o  ®  o  -a  »* 

•  >*  ** 

•4  O  (1^  • 

•  1-0 

o  t- 

•  >0  CO  >  <M  \f\ 

•  f  -i  n  >f  n 

•  g  ®  -*  p-  O' 

i  -f  f  IU  4  f 

•  m  -o 

o  in  -4  • 

* 

» 

•  o  <x 

o 

•  m  in  m  >r  m 

•  <n  m  m  -r 

•  -f  m 

in  m  m  • 

•  1-  l 

^  p- 

• 

• 

• 

♦ 

* 

in  m  in  co  m 

>f  -•  o-  -r  jo 

a$2SS 

90000 
H  N  N  IN 


3SJ£S£ 

o  r-  co  —  o 
k  m  in  a>  ^ 
-o  -o  -o  m  m 


-o  k  «  o  o 


rtNcinh 
•t  in  N  ■o 

—  r»  <*  4-  ~o 

m  p*  in  -o  -a 

o- 


PI  <N  ffl  <N 
iN  (N  f*  -0  N 

SSSSU 

pi  in  pi  o  >f 

(N  IN  N  IN  N 


>^9NH 

p»  -#  n  m 
•*  k  -*  m  n 

inflow 
f *Jrt 


n 


IM 


n  /i  »  »  n 

k  ®  3  £  $ 

flellllMrt 


k  -0  3>  pi  «< 

k  n  m  -a  ^ 

■ON  ^  « 

m  ®  >r  ®  -< 

•o  n  a  a  p- 


»<n  fl  -f  m 

r-r-r-r-r- 

O  O'  O*  0*  O 


p»  in  pi  m  -* 

-<  r-  p-  r-  o> 

pi  -f  a  pi  r- 

n  •*  -4  im  >#■ 

(Nl  ^  «f  PI 


rt9«N^ 

SSS 

k  o  a 

NNNlflN 


IN  m 

n  -o 


-*  n  in  f»  ■* 
9«<NN» 
O  O  4  O 
4-iitNP 
/ICPPP 


r-  ®  r-  m  m 

K  a  a  **  o 

n  a  3  -r  co 


i^sjisa 

<J>  -<  04  IN  -f 
in  in  r»  a  o 
Pp  4  4P 


-or*9»o 
p-  p»  r-  r-  « 
( ^ 


» 


# 


* 

» 

* 

* 

ui  • 

»/> 

•<  • 

® 

<  * 


< 

a 


in 

<  ®  * 


••  o  * 
iu  ** 
a  •  * 

5®  * 

2  M  * 

<  HI  * 
K  K 

32* 


SPACE  USED  41  K  NOW,  51  K  PEAK,  SIZE  450  K 


19 


COUNTRY . REPORT 
SAMPLE  RUN 

BATCH  MODE:  HISTORIC  AND  FORECAST  OUTPUT 


NOTE:  In  the  batch  mode,  the  system  design  causes  all  graphs  to  be  printed 

before  any  other  output.  They  are  printed  out  sequentially  and  can  be  easily 
matched  to  the  proper  headings. 


exec  °ers75.er3nn.batchpgm.clist° 
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DO  YOU  HAVE  A  SPEAKEASY  CHECKPOINT  CONTAINING  A  LIST  OF 
COUNTRIES,  COUNTRY  CODES,  AND  THE  NUMBER  OF  COUNTRIES?  (Y  OR  N) : 

y 

PLEASE  CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS  FOR  OUTPUT: 
*********************************************************** 

**  HISTORIC  DATA  **  THIS  IS  THE  DEFAULT  **  ENTER  °HIST°  ** 

**  MACROECONOMIC  AND  GRAIN  DATA  ** 

**  FORECAST  DATA  **  TABLES  AND  GRAPHS  **  ENTER  °FORE°  ** 

**  PRODUCTION,  CONSUMPTION,  AND  NET  IMPORTS  ONLY  ** 

**  SIMPLE  LINEAR  AND  DOUBLE-LOG  PROJECTIONS  FOR  5  YEARS  ** 

**  BOTH  HISTORIC  AND  FORECAST  DATA  **  ENTER  °BOTH°  ** 

*********************************************************** 

PLEASE  ENTER  ONE  OF  THE  ABOVE  OPTIONS:  ' 
both 

ENTER  A  STANDARD  BATCH  JOBNAME  FOR  THE  BATCH 

PRINTOUT  (EXACTLY  8  CHARACTERS): 

ers3rm03 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER: 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS): 
rmtl3 

IS  THE  OUTPUT  TO  BE  ON  XEROX?  (Y  OR  N) : 
n 

WHAT  IS  YOUR  PRIORITY?  (1  FOR  WEEKEND,  3  FOR  AVERAGE,  13  FOR  ASAP) 
***  NOTE  THAT  PRIORITY  13  COSTS  3  TIMES  PRIORITY  3  *** 

1 

WHAT  IS  THE  JOB  CLASS?  (USUALLY  D  FOR  UP  TO  10  COUNTRIES, 

BUT  SEE  WCC  HANDBOOK  FOR  OTHER  CLASSES  IF  A  LARGE  NUMBER 
OF  COUNTRIES  IS  BEING  SUBMITTED): 
d 

************************************************ 

JOBNAME-ERS3RM03  ACCOUNT-flHHHHB  ROUTE-RMT13 
FORM-1431  PRIORITY-1  CLASS =D 
************************************************ 


IS  THIS  CORRECT?  (Y  OR  N): 

y 

AN  ID  AND  A  PASSWORD  ARE  REQUIRED  TO  ACCESS  GRAIN  DATA. 
(THESE  CAN  BE  OBTAINED  FROM  ED  OVERTON) 

PLEASE  ENTER  ID: 

OK,  ENTER  PASSWORD: 

PLEASE  ENTER  THE  NAME  OF  YOUR  CHECKPOINT  FILE 
CONTAINING  THE  LIST  OF  COUNTRIES  AND  CODES: 
testsave 

TOP  OF  DATA  SET 

DATA  SET  NOT  LINE  NUMBERED 

JOB  ERS3RM03( JOB06503)  SUBMITTED  **  FREE  ALL  FILES  ** 


READY 


USING  D  21  OR  V  ER  SION  08-01-79,  1100  IV3.01) 

USING  DATA  FILE  OF  03/14/81  AT  160027 


**  RECORD  NOT  FOUNO  ** 


«  RECORD  NOT  FOUND  ** 


**  RECORD  NOT  FOUND  ** 


**  RECORD  NOT  FOUND  ** 


**  RECORD  NOT  FOUND  ** 


OK 

OK 

OK 


SPEAKEASY  III  NU  +  7:51  PM  MARCH  20, 

SIZE! 450 ) 

INPUT. ••SIZEI450) 

NOECHC 

ONERRORCNOMESSAGE  NOTRACE  CONTINUE) 

RESTORE  TESTSAVE 

FROM  5:52  PM  3/13/81 
NAME  DUPLICATION  ON  RESTORE 

I D =“■■■" _ 

P  AS  SWD=  "■■■■■■" 

BRANCH*1 BOT  H* 

GET  8 A TCHRPT  ON  REPORT 
EXECUTE  BATCHRPT 


1981 
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INTERACTIVE  MODE:  SPEAKEASY  DATA  SET  OUTPUT 


READY 

exec  °ers 75. er3rm. country .report .clist* 

****  THANK  YOU  ERS75  FOR  USING  THE  "COUNTRY  REPORT"  PROGRAM  **** 
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IF  MORE  THAN  3  COUNTRIES  ARE  BEING  PRINTED,  IT  IS 
SUGGESTED  THAT  THE  PROGRAM  BE  SUBMITTED  BY  BATCH. 

DO  YOU  WISH  THIS  TO  BE  A  BATCH  RUN?  (Y  OR  N):n 
**************************************************************** 


AFTER  ENTERING  OASIS,  YOU  MUST  TYPE 
THE  FOLLOWING  LINE: 

SIZE(200) 

YOU  WILL  THEN  BE  ASKED  FOR  YOUR  ERSID  (ERS75)  AND 

YOUR  TERMINAL  TYPE.  AFTERWARDS,  TYPE  THE  FOLLOWING  LINE: 

GET  COREPORT  ON  REPORT ; COREPORT 

DO  YOU  WANT  INFO  (JUNE  6,  1980)  ON  OASIS  ?n 

ENTER  THE  REMOTE  PRINTER  NUMBER  (NN)  IF  JOURNAL 
IS  TO  BE  USED,  OTHERWISE  HIT  CARRIAGE  RETURN  t 

TIME-09: 22: 11  AM.  CPU-00:00:01  SERVICE-2228  SESSI0N-00:01:57  APRIL  7,1981 


PLEASE  BE  PATIENT  -  IT  SOMETIMES  TAKES  A  FEW 
SECONDS  TO  ALLOCATE  FILES. 


WELCOME  TO  OASIS  -  THE  USDA-ESCS  OUTLOOK  AND  SITUATION  INFORMATION  SYST 

************************************************************************** 
***  NOTICE  TO  OASIS  USERS  4/6/81  *** 

1980  ANNUAL  LIVESTOCK  AND  MACRO  DATA  ARE  NOW  AVAILABLE  IN  LGF»OSSA. 


TELENET  USERS,  PLEASE  REPORT  ANY  PROBLEMS  (EG.  LINE  DROPS)  TO  THE 
TELENET  SERVICE  CENTER  800-336-0437. 

FOR  FURTHER  HELP  CONTACT  ED  OVERTON  OR  FLETCHER  MARTIN  AT  202-447-8862. 

TSO  SPEAKEASY  III  NU+  9:29  AM  APRIL  7,  1981 
:_size(200) 

ENTER  YOUR  ERSID  BELOW: 
ers75 

ENTER  YOUR  TERMINAL  TYPE  BELOW: 
a  j832 

:_get  coreport  on  report ; coreport 
************************************************************ 

TO  USE  THIS  PROGRAM,  THE  OPERATOR  MUST  KNOW  THE 
IFS  COUNTRY  CODES  FOR  THE  COUNTRIES  DESIRED. 

A  SUMMARY  OF  THE  CODES  IS  AVAILABLE  ON  THE  INSIDE  COVER 
OF  0 INTERNATIONAL  FINANCIAL  STATISTICS0  OR  BELOW. 
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COUNTRY. REPORT 
SAMPLE  RUN 

INTERACTIVE  MODE:  FORECAST  OUTPUT 


NOTE: 
bef  ore 
matched 


In  the  batch  mode,  the  system  design  causes  all  graphs  to  be 
any  other  output.  They  are  printed  out  sequentially  and  can 
to  the  proper  headings. 


printed 
be  easily 


exec  er3rm. country .report. clist 

****  THANK  YOU  ERS75  FOR  USING  THE  "COUNTRY  REPORT"  PROGRAM  **** 

IF  MORE  THAN  3  COUNTRIES  ARE  BEING  PRINTED,  IT  IS 
SUGGESTED  THAT  THE  PROGRAM  BE  SUBMITTED  BY  BATCH. 

DO  YOU  WISH  THIS  TO  BE  A  BATCH  RUN?  (Y  OR  N):n 

**************************************************************** 


AFTER  ENTERING  OASIS,  YOU  MUST  TYPE 
THE  FOLLOWING  LINE: 

SIZE (200) 

YOU  WILL  THEN  BE  ASKED  FOR  YOUR  ERSID  (ERS75)  AND 

YOUR  TERMINAL  TYPE.  AFTERWARDS,  TYPE  THE  FOLLOWING  LINE: 

GET  COREPORT  ON  REPORT ; COREPORT 

DO  YOU  WANT  INFO  (JUNE  6,  1980)  ON  OASIS  ?n 

ENTER  THE  REMOTE  PRINTER  NUMBER  (NN)  IF  JOURNAL 
IS  TO  BE  USED,  OTHERWISE  HIT  CARRIAGE  RETURN  t 

TIME-10: 11: 15  AM.  CPU-00:00:27  SERVICE-59674  SESSI0N-00:33:48  APRIL  2,1981 


PLEASE  BE  PATIENT  -  IT  SOMETIMES  TAKES  A  FEW 
SECONDS  TO  ALLOCATE  FILES. 

WELCOME  TO  OASIS  -  THE  USDA-ESCS  OUTLOOK  AND  SITUATION  INFORMATION  SYSTEM 

*************  ****************************************  ********  ******  ****  **  it  irk 

***  NOTICE  TO  OASIS  USERS  3/4/81  *** 

FOURTH  QUARTER  1980  DATA  IS  NOW  AVAILABLE  IN  LOGICAL  GROUP  OSSQ. 

OASIS  PASSWORDS  WILL  BE  CHANGED  ON  FRIDAY,  MARCH  13TH. 

FIVE  YEAR  REVISIONS  HAVE  BEEN  COMPLETED  FOR  FEED  GRAINS  AND  WHEAT. 
REVISIONS  BACK  TO  1968  HAVE  BEEN  COMPLETED  FOR  THE  GENERAL  ECONOMIC 
INDICATORS  (NATIONAL  ACCOUNTS). 

TELENET  USERS,  PLEASE  REPORT  ANY  PROPLEMS  (EG.  LINE  DROPS)  TO  THE 
TELENET  SERVICE  CENTER  800-336-0437. 

FOR  FURTHER  HELP  CONTACT  ED  OVERTON  OR  FLETCHER  MARTIN  AT  202-447-8862. 

TSO  SPEAKEASY  III  NU+  10:13  AM  APRIL  2,  1981 
:_size(200) 

ENTER  YOUR  ERSID  BELOW: 
ers75 

ENTER  YOUR  TERMINAL  TYPE  BELOW: 
aj832 

:_get  coreport  on  report ; coreport 
************************************************************ 


TO  USE  THIS  PROGRAM,  THE  OPERATOR  MUST  KNOW  THE 
IFS  COUNTRY  CODES  FOR  THE  COUNTRIES  DESIRED. 

A  SUMMARY  OF  THE  CODES  IS  AVAILABLE  ON  THE  INSIDE  COVER 
OF  “INTERNATIONAL  FINANCIAL  STATISTICS0  OR  BELOW. 


************************************************************ 
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IF  MORE  THAN  10  COUNTRIES  ARE  BEING  PRINTED,  IT  IS 
SUGGESTED  THAT  THE  PROGRAM  BE  SUBMITTED  BY  BATCH. 

************************************************************ 


TO  INSURE  THAT  PRINTOUT  IS  READABLE,  PLEASE  ENTER  MINI  (80-155  CHARS/LINE) 
OR  STANDARD  (155  CHARS/LINE)  TERMINAL  (M  OR  S):  s 

DO  YOU  WISH  TO  SEE  A  LIST  OF  THE  COUNTRIES  AND  THE 
IFS  CODES  WHICH  ARE  AVAILABLE? (Y  OR  N):  y 

SUMMARY  OF  THE  REGIONS  AVAILABLE: 


REGION  NUMBER  REGION 

********************************************* 


1  MISCELLANEOUS 

2  INDUSTRIAL  COUNTRIES  &  EUROPE 

3  AUSTRALIA, NZ, SOUTH  AFRICA 

4  CENTRALLY  PLANNED 

5  OIL  EXPORTING 

6  OCEANIA 

7  NORTH  AFRICA  4  MIDDLE  EAST 

8  AFRICA 

9  OTHER  WESTERN  HEMISPHERE 

10  ASIA 


ENTER  A  REGION  NUMBER:  3 


IFS  COUNTRY/  OASIS 

CODES  REGION  CODES 


190 

AUSTRALIA,  NZ,  S. AFRICA 

193 

AUSTRALIA 

AU 

196 

NEW  ZEALAND 

NZ 

199 

SOUTH  AFRICA 

ZA 

DO  YOU  WISH  TO  SEE  AN  ADDITIONAL  REGION?  (Y  OR  N): 

*****  NOTE  ***** 

THE  OASIS  CODES  ARE  ONLY  PRINTED  FOR  REFERENCE,  AND  ARE 
NOT  NECESSARY  TO  RUN  THE  PROGRAM.  IF  NO  OASIS  CODE  IS 
PRINTED  FOR  A  COUNTRY,  GRAIN  DATA  IS  NOT  AVAILABLE. 

IF  THE  IFS  CODE  CONTAINS  ANY  ALPHABETIC  CHARACTERS,  NO 
MACROECONOMIC  DATA  IS  AVAILABLE. 

**************** 
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*********************************************************** 
PLEASE  CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS  FOR  OUTPUT: 

**  HISTORIC  DATA  **  THIS  IS  THE  DEFAULT  **  ENTER  °HIST°  ** 

**  MACROECONOMIC  AND  GRAIN  DATA  ** 

**  FORECAST  DATA  **  TABLES  AND  GRAPHS  **  ENTER  °FORE°  ** 

**  PRODUCTION, CON SUMPTION,  AND  NET  IMPORTS  ONLY  ** 

**  SIMPLE  LINEAR  AND  DOUBLE -LOG  PROJECTIONS  FOR  5  YEARS  ** 

**  BOTH  HISTORIC  AND  FORECAST  DATA  **  ENTER  °BOTH°  ** 

**  TO  SAVE  VARIABLES  (ONE  COUNTRY  ONLY)  **  ENTER  °SAVE°  ** 
**  RETURNS  HISTORIC  VARIABLES  FOR  OPERATOR  USE  ** 

*********************************************************** 
PLEASE  ENTER  ONE  OF  THE  ABOVE  OPTIONS:  fore 

AN  ID  AND  A  PASSWORD  ARE  REQUIRED  TO  ACCESS  GRAIN  DATA 
THESE  MAY  BE  OBTAINED  FROM  ED  OVERTON 

ENTER  THE  ID  NUMBER  FOR  GRAIN  DATA;  °QUIT°  TO 

END  THIS  SESSION;  OR  (RETURN)  FOR  _ 

MACROECONOMIC  DATA  ONLY:  ■■■ 

ENTER  PASSWORD:  !■■■ 

HOW  MANY  COUNTRIES  DO  YOU  WISH  TO  ENTER?  1 

ENTER  A  COUNTRY/ REGION  NAME:  saudi  arabia 

ENTER  3  DIGIT  IFS  CODE  FOR  THIS  COUNTRY:  45b 

SAUDI  ARABIA  45b 

IS  THIS  CORRECT?  (Y  OR  N)  y 

OK 

OK 


OK 
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****  note  *********************************************************** 

POINTS  PLOTTED  AT  °0°  ARE  CREATED  BY  THE  PROGRAM 
PLEASE  DISREGARD 


************  SAUDI  ARABIA 


WHEAT  ************ 


PRODUCTION  AND  CONSUMPTION,  ACTUAL  +  LINEAR  AND  LOGARITHMIC  ESTIMATES 
****  PRODCTN=PRODUCTION  (ACTUAL)  CNSMPTN-CONSUMPTION  (ACTUAL)  **** 
****  PLINEST,CLINEST=PRODUCTION  AND  CONSUMPTION  LINEAR  ESTIMATES  **** 
****  PLOGEST , CLOGEST^PRODUCTION  AND  CONSUMPTION  LOGARITHMIC  ESTS  **** 


SYMBOL  *  IS  PRODCTN  X  IS  PLINEST  0  IS  PLOGEST  +  IS  CNSMPTN 
SYMBOL  $  IS  OVERPLOT 

1400  + 

«  + 

.  + 

1050  + 

$ 


@  IS  CLINEST 

+ 

it 

if  • 

• 

if  @  @ 

if  @  + 

<3 


it  IS  CLOGE 


700 


+ 


+ 


+ 


+  + 


350  + 


+  +  +  + 

+ 

*  **  **  **  **  * 


*  *  *  * 

*  *  $  $  $  $  $ 


*  *  *  * 


+  $$$$$$$$$$$$$$$$$$$$$$$$$ 


1962  196b  1970  1974  1978  1982  1986 

1960  1964  1968  1972  1976  1980  1984 


YEARS 
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NET  IMPORTS,  ACTUAL  +  LINEAR  AND  LOGARITHMIC  ESTIMATES 
****  NETIMPTS-NETIMPORTS  (ACTUAL)  **** 
****  NLINEST-NET  IMPORTS,  LINEAR  ESTIMATES  **** 
****  NLOGEST=NET  IMPORTS,  LOGARITHMIC  ESTIMATES  **** 


SYMBOL  *  IS  NETIMPTS  X  IS  NLINEST  0  IS  NLOGEST  +  IS  FILLER 
SYMBOL  $  IS  OVERPLOT 

1400  +  + 

.  0 


1050  + 


700  + 


* 


0 

*  0 

0  X 

0  XX 
X 
X 


+ 


+ 


350 


*  * 


*  *  *  * 


*  *  * 


0 


+  $$$$$$$$$$$$$$$$$  5$  $$$$$$  + 

1962  1966  1970  1974  1978  1982  1986 

1960  1964  1968  1972  1976  1980  1984 


YEARS 
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.SAUDI  ARABIA 


SUPPLY  AND  UTILIZATION  OF  WHEAT 


e 

• 

PRODUC- 

PROD 

• 

CONSUMP- 

.  CONS 

• 

NET 

NET 

• 

« 

• 

TION 

• 

TION 

c 

• 

IMPORTS 

IMPS 

• 

• 

• 

• 

TOTAL 

• 

© 

• 

• 

1000 

LOG 

• 

1000 

LOG 

• 

1000 

LOG 

e 

• 

• 

MET  TONS 

ESTS 

• 

MET  TONS 

ESTS 

• 

MET  TONS 

ESTS 

• 

• 

1961 

• 

127 

• 

238 

• 

111 

• 

• 

1962 

• 

135 

• 

293 

• 

158 

• 

• 

1963 

• 

135 

• 

282 

• 

147 

• 

« 

1964 

• 

125 

• 

315 

• 

190 

• 

• 

1965 

• 

148 

• 

348 

• 

200 

• 

• 

1966 

• 

149 

• 

389 

• 

240 

• 

• 

1967 

• 

150 

• 

332 

© 

182 

• 

• 

1968 

• 

130 

© 

270 

o 

140 

• 

• 

1969 

• 

150 

* 

440 

e 

290 

• 

• 

1970 

• 

135 

« 

498 

c 

363 

• 

• 

• 

•  ••••• 

1971 

•  e 

• 

©•••••  e  •  •  « 

72 

•  «  e  e  «  c 

*> 

• 

©©*©©©©•© 

366 

•  •  ©  ©  «  • 

a  © 

• 

•  •••©•••• 

294 

•  ••©•• 

• 

• 

• 

1972 

• 

39 

• 

386 

• 

347 

• 

• 

1973 

• 

63 

• 

446 

• 

383 

• 

• 

1974 

e 

90 

• 

354 

• 

264 

• 

• 

1975 

• 

193 

• 

546 

• 

353 

• 

• 

1976 

• 

205 

• 

710 

• 

505 

• 

• 

1977 

• 

150 

• 

770 

• 

620 

• 

• 

1978 

• 

175 

• 

900 

• 

725 

• 

• 

1979 

• 

200 

• 

1200 

• 

1000 

• 

• 

1980 

• 

200 

« 

1300 

• 

1100 

• 

• 

• 

• 

• 

• 

FORE¬ 

CASTS 

• 

• 

• 

• 

• 

© 

• 

© 

• 

• 

e 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

1981 

• 

165 

146 

• 

968 

993 

• 

804 

899 

• 

• 

1982 

• 

167 

148 

• 

1011 

1069 

• 

844 

996 

• 

• 

1983 

• 

169 

150 

• 

1054 

1151 

• 

885 

1103 

• 

• 

1984 

• 

172 

151 

• 

1097 

1239 

• 

925 

1222 

• 

• 

1985 

• 

174 

153 

• 

1140 

1334 

• 

965 

1353 

• 

• 

• 

RSQR 

• 

• 

102 

27 

• 

• 

688 

790 

• 

• 

727 

865 

• 

• 

• 

• 

X1000 

• 

• 

20 

20 

• 

• 

20 

20 

• 

• 

20 

20 

• 

• 

• 

N: 

• 

• 

• 

• 

DATA  SOURCE:  FAS  DATABASE 
April  3,  1981 
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(Rice,  coarse  grain,  total  cereal  data  not  reproduced.) 


DO  YOU  WISH  TO  CONTINUE?  (Y  OR  N):  n 

SPACE  USED  41  K  NOW,  72  K  PEAK,  SIZE  400  K 
READY 
logoff 
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COUNTRY. REPORT  PROGRAMS 


The  following  section  contains  brief  descriptions  of  the  functions  of  the 
various  programs.  Included  with  each  is  a  list  of  the  variables  which  must  be 
defined  before  the  program  can  be  executed.  Each  program  also  defines  or  resets 
certain  variables  for  use  by  subprograms  or  calling  programs.  These  variables 
are  also  explained. 


The  following  program  requires  quarterly  updates: 
MACRO 

The  following  programs  require  yearly  updates: 

COREPORT 

FORECAST 

GRAINS 

GRAINSAV 

MACRO 

MACROS  AV 
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ALLPROGS 

BATCHPGM.CLIST 

BATCHRPT 

COREPORT 

COUNTRY . REPORT . CL IS  T 

FORECAST 

GETCODE 

GRAINS 

GRAINSAV 

IFSDATA 

MACRO 

MACRO SAV 

NAME FIND 

OSFDATA 

REGION1  through 
REGIONIO 


CO UNTRY. REPORT 

Program  files  in  ERS75.ER3RM 

-  A  SPEAKEASY  namelist  containing  the  following  programs: 
GETCODE,  GRAINS,  MACRO,  and  TABLES. 

-  A  TSO  prompting  program  to  initiate  batch  execution. 

-  A  batch  version  of  the  COREPORT  program. 

-  The  master  program.  It  generates  the  prompting  questions, 
defines  variables,  and  calls  the  appropriate  programs  as 
needed. 

-  A  TSO  program  that  allocates  files  and  calls  BATCHGM.CLIST 
for  batch  processing  or  the  OASIS  software  for  interactive 
use . 

-  A  program  which  creates  forecasts  and  graphs  for  selected 
grain  data. 

-  A  program  that  finds  the  OSF  country  code  which  corresponds 
to  the  IFS  country  code  entered. 

-  A  program  that  sets  the  appropriate  TDAM  parameters  for 
OSFDATA  and  creates  wheat,  rice  coarse  grain,  and  total 
cereals  supply/utilization  tables. 

-  A  program  that  sets  the  appropriate  TDAM  parameters  for 
OSFDATA  and  creates  one-dimensional  SPEAKEASY  arrays  for 
wheat,  rice  coarse  grain,  and  total  cereals  supply/utili- 
zation  variables. 

-  A  program  which  gets  the  selected  IFS  variables  from  TDAM. 

-  A  program  that  sets  the  appropriate  TDAM  parameters  for 
IFDATA  and  creates  tables  of  selected  annual  and  quarterly 
IFS  variables. 

-  A  program  that  sets  the  appropriate  TDAM  parameters  for 
IFSDATA  and  creates  one-dimensional  SPEAKEASY  arrays  for 
selected  IFS  variables. 

-  A  program  that  takes  user-entered  IFS  or  OSF  codes  and 
finds  their  corresponding  country  names  and  OSF/IFS  codes 

to  create  a  SPEAKEASY  CHECKPOINT  file. 

-  A  program  that  gets  the  OSF  variables  from  TDAM. 

-  Data  files  containig  coresponding  IFS  codes,  country 
names,  and  FAS  (in  the  ''OSF’'  logical  group)  country 
codes. 

-  A  program  to  generate,  if  required,  country  IFS  codes 
and  matching  names. 


TABLES 
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BATCHPGM. CLIST 


A  TSO  prompting  program  which  creates  JCL  for  batch  processing,  and 
provides  an  option  for  creating  a  CHECKPOINT  file  of  IFS  codes  and  country 
names . 
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,ers75.er3rm.batchpgm.clist< 


00010 

00020 

00030 

00040 

00050 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 


/*  MARCH  17,  1981  VERSION  */ 

/*  ERS75.ER3RM.BATCHPGM.CLIST  */ 

CONTROL  PROMPT  END(ENDO)  NOFLUSH  MSG  NOSYMLIST  NOCONLIST 
SET  PRTY- 
SET  ACCOUNT- 
SET  ROUTE- 

STRTBTCH:  WRITE 

ERROR  DO 

WRITE  SYSTEM  ERROR.  PLEASE  SAVE  YOU  OUTPUT  AND  CONTACT 

WRITE  BILL  KOST  AT  X78470 

WRITE  SYSPCMD-&SYSPCMD  SYSSCMD-&SYSSCMD 

WRITE  LASTCC-&LASTCC 

SET  COMMAND- 

WRITE  &COMMAND 

RETURN 

ENDO 

ATTN  DO 

SET  COMMAND- 
WRITE  &COMMAND 

WRITE  DO  YOU  WISH  TO  CONTINUE?  (Y  OR  N): 

READ  ANS 

IF  &ANS  EQ  N  OR  &ANS  EQ  NO  THEN  GOTO  FINISH 

RETURN 

ENDO 


WRITE 

WRITE 


WRITE 

WRITE 


WRITE 

WRITE 

WRITE 

WRITE 


DO  YOU  HAVE  A  SPEAKEASY  CHECKPOINT  CONTAINING  A  LIST  OF 
COUNTRIES,  COUNTRY  CODES,  AND  THE  NUMBER  OF  COUNTRIES?  + 
(Y  OR  N): 

READ  ANS 

IF  &ANS  EQ  Y  OR  4 ANS  EQ  YES  THEN  GOTO  OPTION 

DO  YOU  WISH  TO  CREATE  A  CHECKPOINT  FILE?  (Y  OR  N): 

READ  ANS 

IF  &ANS  NE  Y  AND  &ANS  NE  YES  THEN  GOTO  FINISH 

TO  DO  SO  IS  QUITE  EASY.  SIMPLY  ENTER  UP  TO  50  IFS  OR 
OASIS  COUNTRY  CODES,  AND  THE  PROGRAM  WILL  DO  THE  REST. 


SAVLIST:  SET  N- 

SET  CODE¬ 
WRITE  BEGIN  —  ENTER  ONE  OASIS  OR  IFS  CODE  PER  LINE  (THEY  MAY  BE 
WRITE  ENTERED  INTERCHANGEABLY)  —  TYPE  STOP  TO  END: 

WRITE 

CODELOOP: SET  M-0 

SET  TEMPSTR- 
DO  WHILE  &M  LE  9 
WRITE NR  :* 

TRYAGAIN : READ  STRING 

IF  & STRING  EQ  STOP  THEN  - 
DO 

IF  iM  EQ  0  AND  &N  EQ  0  THEN  GOTO  FINISH 
ELSE  GOTO  ENDLOOP 

ENDO 

IF  &LENGTH(4STR(4STRING) )  NE  2  AND  - 
&LENGTH(&STR(& STRING))  NE  3  THEN- 
DO 


00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00850 

00860 

00870 

00880 

00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 

00970 

00980 

00990 

01000 

01010 

01020 

01030 

01040 

01050 

01060 

01070 

01080 

01090 

01100 

oino 

01120 

01130 

01140 

01150 

01160 

01170 

01180 

01190 

01200 

01210 

01220 

01230 


WRITE  IMPROPER  LENGTH  —  REENTER:  59 

GOTO  TRYAGAIN 
ENDO 

IF  &LENGTH(&STR(&STRING) )  EQ  2  THEN  - 
SET  STRING=&STR(4STRING)&STR(  ) 

SET  M-&MH 

SET  TEMPSTR“&STR(&TEMPSTR)&STR(&STRING) 

ENDO 

SET  M-10 

ENDLOOP:  SET  Q-l 

DO  WHILE  &Q  LT  &M*3 

WRITE NR  &SUBSTR(&Q: &Q+2 , &TEMPSTR)&STR(  ) 

SET  Q-&Q+3 
ENDO 
WRITE 
WRITE 

WRITENR  ARE  THESE  CODES  CORRECT 

IF  &M  EQ  10  AND  &N  LT  40  THEN  WRITENR  SO  FAR 

WRITE  ?  (Y  OR  N): 

READ  &ANS 

IF  &ANS  NE  Y  AND  &ANS  NE  YES  THEN  - 
DO 

WRITE  PLEASE  REENTER  THE  ABOVE  &M  CODES: 

GOTO  CODELOOP 
ENDO 
ELSE  DO 

SET  CODE«&STR(&CODE)&STR(&TEMPSTR) 

SET  N-&N+&M 
ENDO 

IF  &N  EQ  50  THEN  GOTO  SAVELIST 
IF  &STRING  EQ  STOP  THEN  GOTO  SAVELIST 
GOTO  CODELOOP 


SAVELIST:  WRITE 

WRITE  THIS  LIST,  ALONG  WITH  THE  CORRESPONDING  COUNTRY  OR  REGION 
WRITE  NAMES,  WILL  BE  SAVED  IN  A  SPEAKEASY  CHECKPOINT. 

WRITE 

CHECKSAV :  WRITE  PLEASE  ENTER  A  NAME  FOR  THIS  CHECKPOINT  (LESS  THAN  8  + 

CHARS): 

READ  CHKNAME 

IF  &LENGTH(&STR(&CHKNAME) )  GT  8  THEN  GOTO  CHECKSAV 
IF  &CHKNAME  EQ  &STR()  THEN  GOTO  CHECKSAV 

WRITE 

WRITE  THIS  LIST  WILL  BE  SAVED  AS  "&SYSPREF. .&CHKNAME. .SPEKSAVE" 
JCL:  WRITE 

WRITE  A  COPY  OF  THE  FILE  WILL  BE  PRINTED  IN  BATCH  SO  PLEASE 
ROUTER:  WRITE  ENTER  THE  REMOTE  TERMINAL  DESIRED  (RMT3  OR  RMT13): 

READ  ROUTE 

IF  &ROUTE  NE  RMT3  AND  & ROUTE  NE  RMT13  THEN  GOTO  ROUTER 

WRITE 

JNAME:  WRITE  PLEASE  ENTER  A  STANDARD  BATCH  JOBNAME  FOR  THIS 
WRITE  PRINTOUT  (EXACTLY  8  CHARACTERS): 

READ  JOBN 

IF  &LENGTH(&STR(&JOBN) )  NE  8  THEN  GOTO  JNAME 
WRITE 

ACCT:  WRITE  ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER: 

READ  ACCOUNT 

IF  &LENGTH(&STR(&ACCOUNT) )  NE  10  THEN  GOTO  ACCT 


01240 

WRITE 

01250 

01260 

PRIOR:  WRITE 

WHAT  IS  YOUR  PRIORITY?  (1  FOR  WEEKEND,  3  FOR  AVERAGE,  + 

01270 

13  FOR  ASAP): 

01280 

WRITE 

***  NOTE  THAT  PRIORITY  13  COSTS  3  TIMES  PRIORITY  3  *** 

01290 

READ  PRTY 

01300 

WRITE 

01310 

WRITE 

************************************ 

01320 

WRITE 

JOBNAME-&JOBN  ACCOUNT-&ACCOUNT 

01330 

WRITE 

PRIORITY-&PRTY 

01340 

WRITE 

************************************ 

01350 

WRITE 

01360 

WRITE 

IS  THIS  CORRECT?  (Y  OR  N): 

01370 

READ 

01380 

IF  &SYSDVAL  EQ  N  OR  &SYSDVAL  EQ  NO  THEN  - 

01390 

DO 

01400 

WRITE  PLEASE  TRY  AGAIN 

01410 

GOTO  ROUTER 

01420 

ENDO 

01430 

01440 
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01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01860 

01870 


WRITE 

EDIT  °ERS7 5 . ER3RM . DUMMY . BATCHJOB . CNTL ( RUNBATCH ) °  CNTL  NONUM 
VERIFY  OFF 
TOP 
DEL  * 

INSERT  //&J0BN  JOB  (&ACC0UNT. ,TSOOO) , °SPEKLIST° , 

INSERT  //  MSGLEVEL-1.PRTY-&PRTY. ,NOTIFY-&SYSUID. , 

INSERT  //  TIME-(0 , 20) ,CLASS-C 

INSERT  ?? ROUTE  PRINT  &ROUTE 

INSERT  //STEPN  EXEC  ERSOAS IS, REGION. OASIS-600K 
BOTTOM 

INSERT  NOECHO 

INSERT  ONERROR( NOMESSAGE  NOTRACE  CONTINUE) 

INSERT  MARGINS (133) 

INSERT  GET  GETCODE  ON  REPORT 

INSERT  N-&N 

INSERT  KK-INTS(5,34) 

INSERT  LL-INTS( 1 ,3) 

INSERT  $ 

INSERT  COUNTRY-ARRAY(N,3:"  ") 

INSERT  NAME* ARRAY (N, 30:"  ") 

INSERT  C0DEAR-ARRAY(N*3:"  ") 

INSERT  CODEAR-"&SUBSTR( 1 :  &N , &CODE ) " 

INSERT  CODEAR-CODEAR, "&SUBSTR(&N+1 :&N*2 ,&CODE)" 

INSERT  CODEAR-CODEAR, "&SUBSTR(&N*2+1:4N*3,4C0DE)" 

INSERT  GET  NAMEFIND  ON  REPORT 
INSERT  NAMEFIND 

INSERT  FREE IF  IFSLOC  I  JJ  GETCODE  NAMEFIND  AA  III  OSFLOC 
INSERT  CHECKPOINT  &CHKNAME 
INSERT  NO-INTS(l  N) 

INSERT  TABULATE  NO  COUNTRY  NAME 

INSERT  //OASIS. REPORT  DD  DSN-ERS75.ER3RM.OGSMRPT.DATA, 

INSERT  //  DISP-SHR 

INSERT  //OASIS.&CHKNAME.  DD  DSN-&SYSPREF . . &CHKNAME . . SPEKSAVE , 


INSERT  // 

INSERT  // 

INSERT  // 

INSERT  ?? 

INSERT  // 

TOP 

CHANGE  *  99999  *?? 

UNNUM 

SUBMIT 


DISP-(NEW,CATLG), 

DCB*(LRECL=80 , BLKSIZE-6160 ,RECFM=FB) , 
UNIT-3350 , SPACE-( 6 160,(5,5), RLSE ) 


7*°  ALL 


01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

02020 

02030 

02040 

02050 

02060 

02070 

02080 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 


END  NOSAVE 
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WRITE 

WRITE  YOU  MAY  NOW  CONTINUE  AND  PRINT  OUT  THE  DATA  + 

FOR  THESE  COUNTRIES  IF  YOU  WISH. 

WRITE  TO  DO  SO,  HIT  THE  RETURN  KEY.  TO  QUIT,  TYPE  —  QUIT: 

WRITE 

READ  ANS 

IF  &ANS  EQ  QUIT  THEN  GOTO  FINISH 

OPTION:  WRITE  PLEASE  CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS  FOR  OUTPUT: 

WRITE 

WRITE  *********************************************************** 
WRITE 

WRITE  **  HISTORIC  DATA  **  THIS  IS  THE  DEFAULT  **  ENTER  °HIST°  ** 
WRITE  **  MACROECONOMIC  AND  GRAIN  DATA  ** 

WRITE 

WRITE  **  FORECAST  DATA  **  TABLES  AND  GRAPHS  **  ENTER  °FORE°  ** 
WRITE  **  PRODUCTION,  CONSUMPTION,  AND  NET  IMPORTS  ONLY  ** 

WRITE  **  SIMPLE  LINEAR  AND  DOUBLE-LOG  PROJECTIONS  FOR  5  YEARS  ** 
WRITE 

WRITE  **  BOTH  HISTORIC  AND  FORECAST  DATA  **  ENTER  °BOTH°  ** 
WRITE 

WRITE  *********************************************************** 
WRITE  PLEASE  ENTER  ONE  OF  THE  ABOVE  OPTIONS: 

READ  BRANCH 
WRITE 

BATCHRUN:  WRITENR  ENTER  A 

IF  &CHKNAME  NE  &STR()  THEN  WRITENR  NEW 
WRITE  STANDARD  BATCH  JOBNAME  FOR  THE  BATCH 
WRITE  PRINTOUT  (EXACTLY  8  CHARACTERS): 

READ  JOBNAME 

IF  &LENGTH(&STR(& JOBNAME))  NE  8  THEN  GOTO  BATCHRUN 

ACCNT :  IF  &ACC0UNT  EQ  &STR()  THEN  DO 

WRITE  ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER: 

READ  ACCOUNT 

IF  & LENGTH (& STR ( &ACCOUNT ) )  NE  10  THEN  GOTO  ACCNT 
ENDO 

ROUTING:  IF  & ROUTE  EQ  &STR( )  THEN  DO 

WRITE  ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS): 
READ  ROUTE 

IF  &ROUTE  NE  RMT13  AND  & ROUTE  NE  RMT3  THEN  GOTO  ROUTING 
ENDO 

XEROXX:  WRITE  IS  THE  OUTPUT  TO  BE  ON  XEROX?  (Y  OR  N): 

READ  XEROX 

IF  &STRC&XEROX)  EQ  &STR( )  THEN  GOTO  XEROXX 
WRITE 

IF  & XEROX  EQ  Y  OR  & XEROX  EQ  YES  THEN  - 
DO 

SET  FORM-XERO 

WRITE  YOU  MUST  GIVE  THE  OPERATOR  A  REQUEST  FORM  FOR  + 

XEROX  PROCESSING. 

SET  SYSOUT-D 
ENDO 
ELSE  DO 

SET  FORM-1431 

IF  & ROUTE  EQ  RMT13  THEN  SET  SYSOUT-A 
ELSE  SET  SYSOUT-C 
ENDO 


02520  PRIORTY: 

WRITE  WHAT  IS  YOUR  PRIORITY?  (1  FOR  WEEKEND,  3  FOR  AVERAGE,  + 

02530 

13  FOR  ASAP) 

02540 

Write  ***  NOTE  THAT  PRIORITY  13  COSTS  3  TIMES  PRIORITY  3  *** 

02550 

READ  PRTY 

02560 

02570  JCLASS: 

WRITE  WHAT  IS  THE  JOB  CLASS?  (USUALLY  D  FOR  UP  TO  10  COUNTRIES 

02580 

WRITE  OR  F  FOR  BOTH  HISTORIC  AND  FORECAST  DATA,  BUT  SEE 

02590 

WRITE  WCC  HANDBOOK  FOR  OTHER  CLASSES  IF  A  LARGE  NUMBER 

02600 

WRITE  OF  COUNTRIES  IS  BEING  SUBMITTED): 

02610 

READ  CLASS 

02620 

IF  &CLASS  EQ  D  THEN  - 

02630 

DO 

02640 

SET  MINUTES-2 

02650 

SET  SECONDS-O 

02660 

ENDO 

02670 

ELSE  DO 

02680 

WRITE  ENTER  THE  MINUTES  ALLOWED  FOR  CLASS  4 CLASS 

02690 

READ  MINUTES 

02700 

WRITE  ENTER  THE  SECONDS  PERMITTED 

02710 

READ  SECONDS 

02720 

ENDO 

02730 

02740 

WRITE 

02750 

WRITE  ************************************************ 

02760 

WRITE  JOBNAME-&JOBNAME  ACCOUNT-&ACCOUNT  R0UTE»4R0UTE 

02770 

WRITE  FORM-&FORM  PRIORITY-&PRTY  CLASS-&CLASS 

02780 

WRITE  ************************************************ 

02790 

WRITE 

02800 

WRITE  IS  THIS  CORRECT?  (Y  OR  N): 

02810 

READ 

02820 

IF  &SYSDVAL  EQ  N  OR  &SYSDVAL  EQ  NO  THEN  - 

02830 

DO 

02840 

WRITE  PLEASE  TRY  AGAIN 

02850 

GOTO  BATCHRUN 

02860 

ENDO 

02870 

02880  WRITE  AN  ID  AND  A  PASSWORD  ARE  REQUIRED  TO  ACCESS  GRAIN  DATA. 
02890  WRITE  (THESE  CAN  BE  OBTAINED  FROM  ED  OVERTON) 

02900  WRITE 

02910  WRITE  PLEASE  ENTER  ID: 

02920  READ  ID  _ 

02930  IF  &ID  EQ  &STR(HBB)  THEN  DO 

02940  WRITE  OK,  ENTER  PASSWORD: 

02950  READ  PASSWD 

02960  ENDO 

02970  ELSE  DO 

02980  WRITE  WRONG,  NO  GRAIN  DATA  WILL  BE  PRINTED. 

02990  SET  PAS SWD=&STR( WRONG) 

03000  ENDO 

03010  IF  &CHKNAME  EQ  &STR()  THEN  DO 

03020  WRITE  PLEASE  ENTER  THE  NAME  OF  YOUR  CHECKPOINT  FILE 

03030  WRITE  CONTAINING  THE  LIST  OF  COUNTRIES  AND  CODES: 

03040  READ  CHKNAME 

03050  ENDO 

03060 

03070 

03080  WRITE 

03090  EDIT  °ERS75.ER3RM. DUMMY. BATCH JOB. CNTL(RUNBATCH) °  CNTL  NONUM 
03100  VERIFY  OFF 
03110  TOP 
03120  DEL  * 

03130  INSERT  //&JOBNAME  JOB  (&ACC0UNT . ,TSOOO) , °BATCHJOB° , 

03140  INSERT  //  MSGLEVEL=*1 , PRTY=&PRTY. ,NOTIFY*4SYSUID. , 

03150  INSERT  //  TIME«(4MINUTES. ,&SECONDS. ) , CLASS-&CLASS . 
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03160  INSERT  / /STEPN  EXEC  ERSOASIS .REGION. OASIS-600K,LIST-®(&SYSOUT. 

03170  BOTTOM 

03180  INSERT  SIZE(250) 

03190  INSERT  NOECHO 

03200  INSERT  ONERROR(NOMESSAGE  NOTRACE  CONTINUE) 

03210  INSERT  RESTORE  &CHKNAME 
03220  INSERT  ID-"&ID" 

03230  INSERT  PASSWD-"&PASSWD" 

03240  INSERT  B RANCH- ®& BRANCH® 

03250  INSERT  GET  BATCHRPT  ON  REPORT 
03260  INSERT  EXECUTE  BATCHRPT 

03270  INSERT  //OASIS.&CHKNAME.  DD  DSN-&SYSPREF. .&CHKNAME. .SPEKSAVE, 
03280  INSERT  //  DISP-SHR 

03290  INSERT  //OASIS. REPORT  DD  DSN-ERS 75. ER3RM . OGSMRPT • DATA . 

03300  INSERT  //  DISP-SHR 

03310  INSERT  ?? 

03320  INSERT  // 

03330  TOP 

03340  CHANGE  *  99999  *??#  */*•  ALL 

03350  UNNUM 

03360  SUBMIT 

03370  END  NOSAVE 

03380 

03390 

03400  FINISH;  FREEALL 
END  OF  DATA 


ERS  7  5 . ER3RM . DUMMY . BATCH JOB . CNTL 


/*  ERS 75. ER3RM . DUMMY . BATCHJOB . CNTL ( RUNBATCH )  */ 
/ / OAS IS . SPEAKIN  DD  * 

END  OF  DATA 


.&FORM. )* 
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The  batch 
other  programs. 

BATCHRPT 

version  of  COREPORT.  It  initializes  variables  and  calls  the 

VARIABLES  WHICH  MUST  BE  DEFINED  BEFORE  EXECUTION: 


BRANCH 

-  Defines  the  type  of  output  desired,  allowing  for  proper 
program  branching. 

COUNTRY  - 

-  N  x  3  character  array  containing  a  list  of  IFS  codes. 

ID 

■  OSF  id  required  for  grain  data. 

N 

-  Number  of  countries. 

NAME 

-  N  x  30  character  array  of  country  names  corresponding  to  codes 
in  COUNTRY. 

PASSWD 

-  OSF  password  required  for  grain  data. 

VARIABLES  DEFINED  IN  THE  PROGRAM: 


ERROR 

-  Error  flag  used  by  GETCODE  to  mark  invalid  IFS  codes. 

I 

-  Loop  index.  Runs  from  1  through  N. 

OSF 

-1x2  character  array.  Will  contain  the  OSF  code  being  pro¬ 
cessed. 

TERM 

-  Defines  terminal  size  for  output.  Set  to  "b"  for  batch. 

TYPE 

-  Set  to  'either'  when  either  type  of  forecast  output  is  desired 
Set  to  'default'  otherwise. 
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EDITING  BATCHRPT 

1  PROGRAM 

2  $ 

3  $  THIS  PROGRAM  IS  A  BATCH  VERSION  OF  THE  PROGRAM  COREPORT 

4  $  "N",  "COUNTRY",  AND  "NAME"  MUST  BE  DEFINED  IN  A  CHECKPOINT  BEFORE  RUNNING 

5  $ 

6  MARGINS( 140) 

7  TERM="B" 

8  GETLIST  ALLPROGS  ON  REPORT 

9  ONERROR( NOMESSAGE  NOTRACE  CONTINUE) 

10  $ 

11  TYPE»°EITHER°;  IF  ( BRANCH. EQ. °HIST° )  TYPE- “DEFAULT0 

12  $ 

13  $ 

14  FOR  I-l.N 

15  OSF»ARRAY(l,2:"  ") 

16  ERROR-O 

17  EXECUTE  GETCODE 

18  IF ( ERROR. EQ. 1 )  GO  TO  NEXT1 

19  $ 

20  MIDCHAR-ARRAY ( : "0123456789") 

21  FOR  11-1,10 

22  IF(COUNTRY(I , 2) .EQ.MIDCHAR(II) )  GO  TO  MACRO 

23  ENDLOOP  II 

24  FREE  II  MIDCHAR 

25  $ 

26  $ 

27  PRINT  "NO  MACROECONOMIC  DATA  AVAILABLE  FOR  "  NAME ( I , ) 

28  $ 

29  GO  TO  GRAIN 

30  MACRO:  IF  ( BRANCH. NE. “FORE °)  EXECUTE  MACRO 

31  GRAIN:  IF(OSF( 1 , 1 ) .EQ."  ")  GO  TO  NONE 

32  IF  (NAMELIT(ID).EQ.°**I0)  EXECUTE  GRAINS 

33  GO  TO  NEXT1 

34  NONE:  PRINT  "NO  GRAIN  DATA  AVAILABLE  FOR  "NAME (I,) 

35  NEXT1 : 

36  ENDLOOP  I 


April  6,  1981 
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COREPORT 

The  main 
necessary  for 

prompting  program  for  interactive  use.  It  requests  the  data 
execution  of  the  remaining  programs  and  initializes  variables. 

PERIODIC 

periodically. 

CHANGES  REQUIRED:  Three  lines  use  the  OSF  id  which  is  changed 

VARIABLES  DEFINED  IN  THE  PROGRAM: 


BRANCH  - 

-  Defines  the  type  of  output  desired,  allowing  for  proper  program 
branching. 

COUNTRY  - 

•  N  x  3  character  array  containing  a  list  of  IFS  codes. 

ERROR 

•  Error  flag  used  by  GETCODE  to  mark  invalid  IFS  codes. 

I 

-  Loop  index.  Runs  from  1  through  N. 

ID 

-  OSF  id  required  for  grain  data. 

N 

-  Number  of  countries. 

NAME 

-  N  x  30  character  array  of  country  names  corresponding  to  codes 
in  COUNTRY. 

OSF 

-1x2  character  array.  Will  contain  OSF  code  being  processed. 

PASSWD  - 

-  OSF  password  required  for  grain  data. 

TERM 

-  Defines  terminal  size  for  output.  Set  to  "s”  for  standard  (155 
characters/line)  terminal  or  "m"  for  miniterm. 

TYPE 

-  Set  to  'either'  when  BRANCH  is  set  to  either  'both'  of  'fore'. 
Set  to  'default'  otherwise. 
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GETLIST  ALLPROGS  ON  REPORT  §  ALLPROGS  IS  A  NAMELIST 

$  CONTAINING  THE  PROGRAMS 
$  "MACRO",  "GRAINS", 

$  "GETCODE" ,  "TABLES" 


PRINT  "DO  YOU  WISH  TO  SEE  A  LIST  OF  THE  COUNTRIES  AND  THE" 
ASKCHAR  "IFS  CODES  WHICH  ARE  AVAILABLE? (Y  OR  N):  ","ANS- 

IF(ANS.EQ."Y")  EXECUTE  TABLES 
FREE IF  TABLES 
SPACE  1 
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94 

95 

96 


'* ,  "NUMBER*" 


ASK1 :  ASK  "HOW  MANY  COUNTRIES  DO  YOU  WISH  TO  ENTER? 

SPACE  1 

IF ( NUMBER. GT.O)  GO  TO  CKHIGH 

$ 

ASKCHAR  "DO  YOU  WISH  TO  CONTINUE?  (Y  OR  N)  VANS-" 

SPACE  1 

IF(ANS.NE."Y")  QUIT 
GO  TO  ASK1 
$ 

CKHIGH :  $  ARBITRARY  MAXIMUM  NUMBER  TO  BE  ENTERED  INTERACTIVELY 
IF(NUMBER.GT.IO)  GO  TO  ASK1 
$ 

97  SAVE1 :  IF ( BRANCH. EQ. "SAVE0 )  NUMBER- 1 

98  $ 

99  N-NUMBER 

100  COUNTRY- (N, 3:"  ") 

101  NAME=(N, 30: "  ") 

102  $ 

103  FOR  1-1 ,N 


104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 


"  $  CLEAR  1  NAME 

NAME (I,)-" 


ft  Y«i 

% 


NAME:  NAME(I,)-" 

$ 

ASKCHAR  "ENTER  A  COUNTRY/REGION  NAME: 

SPACE  1 

IF  (NAME(I,1).EQ."  ")  GO  TO  ERRl 
ASKCHAR  "ENTER  3  DIGIT  IFS  CODE  FOR  THIS  COUNTRY: 
SPACE  1 

IF  ( COUNTRY ( I , 1 ) . EQ . "  ")  GO  TO  ERRl 

$ 

PRINT  NAME(I,)  COUNTRY(I,) 

SPACE  1 

$ 

CHECK:  ANS-"  " 

ASKCHAR  "IS  THIS  CORRECT?  (Y  OR  N)  VANS-" 
SPACE  1 

IF(ANS.NE."Y")  GO  TO  NAME 
GO  TO  NEXT 
$ 


»«  fl 


, "COUNTRY(I, )-" 


ERRl 


NEXT: 


ASKCHAR  "DO  YOU  WISH  TO  CONTINUE?  (Y  OR  N)  VANS-" 
IF  (ANS.NE."Y")  QUIT 
$ 


127  ENDLOOP  I 

128  $ 

129  UNLOAD  ASKCHAR 

130  $ 

131  FOR  1-1 ,N 


132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 


OSF-ARRAY (1,2:"  ") 

ERROR-O 

EXECUTE  GETCODE 
IF(ERROR.EQ.l)  GO  TO  NEXT1 
$ 

MI DCHAR- ARRAY ( : " 0 1 2 3 4 5 6 7 8 9 " ) 

FOR  11=1,10 

IF ( COUNTRY ( I ,2) .EQ.MIDCHAR( II) )  GO  TO  MACRO 
ENDLOOP  II 

$ 

$ 

PRINT  "NO  MACROECONOMIC  DATA  AVAILABLE  FOR  "  NAME (I,) 

$ 


145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 


GO  TO  GRAIN  ? 

MACRO:  IF ( BRANCH. EQ.# SAVE0)  GO  TO  SAVE 2 
IF ( BRANCH. NE.°FORE°)  EXECUTE  MACRO 
GRAIN:  IF ( OSF (  1 , 1 ) . EQ . "  ")  GO  TO  NONE 

IF(NAMELIT(ID).EQ.0«*B°)  EXECUTE  GRAINS 
GO  TO  NEXT1 

NONE:  PRINT  "NO  GRAIN  DATA  AVAILABLE  FOR  "NAME(I , ) 

NEXT1 : 

ENDLOOP  I 

$ 

FREEIF  GETCODE  MACRO  GRAINS  IF S DATA  OSFDATA  MIDCHAR  I  II  ERROR  NUMBER 

$ 

$  ALLOW  USER  TO  CONTINUE 
SPACE  2 

ASKCHAR  "DO  YOU  WISH  TO  CONTINUE?  (Y  OR  N)  ","ANS»" 

SPACE  1 

IF  (ANS.NE."Y")  QUIT 
GO  TO  BEGIN 

$ 

SAVE2:  GET  MACROSAV  ON  REPORT 
GET  GRAINSAV  ON  REPORT 
FREEIF  GRAINS  MACRO 
$ 

$ 

EXECUTE  MACROSAV 

IF ( OSF (1,1).NE."  ")  GO  TO  CONT 

PRINT  "NO  GRAIN  DATA  AVAILABLE  FOR  "NAME(N, ) 

GO  TO  SKIPOVER 

CONT:  IF(NAMELIT(ID).EQ.°«MI0)  EXECUTE  GRAINSAV 

$ 

SKIPOVER: 


SPACE  1 
PRINT  "** 
PRINT  "** 
PRINT  "** 
PRINT  "** 
PRINT  "** 


ALL  VARIABLES  ARE  NOW  DEFINED  AS  ONE-DIMENSIONAL  **" 
ARRAYS.  PLEASE  NOTE  THAT  SOME  VARIABLES  MAY  NOT  **" 
HAVE  DATA  FOR  ALL  YEARS.  MISSING  DATA  ARE  STORED  **" 
AS  0°S  AND  MAY  AFFECT  CALCULATIONS  UNLESS  THE  **" 
ELEMENTS  ARE  ESTIMATED  OR  THE  ARRAYS  ARE  SHORTENED  **" 


$ 

FREEIF  MACROSAV  GRAINSAV  TYPE  BRANCH  OSF  OSFDATA  IFSDATA 
FREEIF  ANS  ANSWER  TYPE  TERM 
UNLOAD  SPACE 


April  6,  1981 
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COUNTRY . REPORT . CLIST 


Allocates  files  and  directs  the  user  to  batch  or  interactive  processing. 


°ers 7 5. er3nn. country .report .clist° 
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00010  TERM  LINESIZE( 155) 

00020  WRITE  ****  THANK  YOU  &SYSUID  FOR  USING  THE  "COUNTRY  REPORT"  PROGRAM  **** 
WRITE 

IF  MORE  THAN  3  COUNTRIES  ARE  BEING  PRINTED,  IT  IS 
SUGGESTED  THAT  THE  PROGRAM  BE  SUBMITTED  BY  BATCH. 


00030 

00040 

00050 

00060 


DO  YOU  WISH  THIS  TO  BE  A  BATCH  RUN?  (Y  OR  N): 


WRITE 
WRITE 
WRITE 

00070  WRITENR 
00080  READ 
00090  WRITE 

00100  WRITE  **************************************************************** 
IF  &SYSDVAL-Y  THEN  GOTO  BTCH 

ALLOC  FI (REPORT)  DA(°ERS75.ER3RM.OGSMRPT.DATA° )  SHR 
WRITE 

00140  TSO:  WRITE  AFTER  ENTERING  OASIS,  YOU  MUST  TYPE 

00150  WRITE  THE  FOLLOWING  LINE: 


00110 

00120 

00130 


00160  WRITE 
00170  WRITE 


SIZE(200) 


00180 

00190 

00200 

00210 


WRITE 

WRITE 

WRITE 

WRITE 


YOU  WILL  THEN  BE  ASKED  FOR  YOUR  ERSID  (&SYSUID)  AND 
YOUR  TERMINAL  TYPE.  AFTERWARDS,  TYPE  THE  FOLLOWING  LINE: 

GET  COREPORT  ON  REPORT; COREPORT 


00220  WRITE 
00230  WRITE 
00240  OASIS 
00250  GOTO  FIN 

00260  BTCH:  EXEC  ER3RM . B ATCHPGM . CL I ST 
00270  FIN: END 
END  OF  DATA 
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FORECAST 


Creates  forecasts  and  graphs  for  selected  grain  data.  First  determines 
whether  the  three  time  series  are  missing  any  data  and  must  be  truncated,  then 
runs  simple  linear  regressions  on  each  series  and  the  logarithms  of  each  series. 
Five-year  estimates  are  then  made  from  the  results  and  appended  to  each  series. 
Finally,  the  data  are  graphed  against  time. 

PERIODIC  CHANGES  REQUIRED:  The  variable  LASTYR  must  be  changed  yearly  to 
correspond  with  the  last  year  of  the  time  series. 

VARIABLES  WHICH  MUST  BE  DEFINED  BEFORE  EXECUTION: 

J 

NSPR;  SPREND 
NNET ;  NETEND 
NUDT ;  UDTEND 

PEST;  LPEST  Defined  in  GRAINS 

NEST;  LNEST 
CEST;  LCEST 

RSQ;  LRSQ 

VARIABLES  RETURNED  BY  THE  PROGRAM: 


SHRTPEST 

SHRTNEST 

SHRTCEST 


-  Production  five-year  linear  estimates. 

-  Net  imports  five-year  linear  estimates. 

-  Consumption  five-year  linear  estimates. 


LPEST 

LNEST 

LCEST 


-  Production  five-year  logarithmic  estimates. 

-  Net  imports  five-year  logarithmic  estimates. 

-  Consumption  five-year  logarithmic  estimates. 


NO  -  Three-element  array  containing  the  number  of  elements  in  each 

regression  series  (after  truncation). 

O 

RSQ;  LRSQ  -  R^  values  for  linear  and  logarithmic  regression  runs. 


REQUIRES  YEARLY  UPDATE 
PERIOD  TO  BE  PRINTED  OUT 


EDITING  FORECAST 

1  PROGRAM 

2  $ 

3  YRS1“(20:  )  ;YRS2“( 20:  )  ;YRS3*(20:  ) 

4  LASTYR-1980  $ 

5  YEARS“INTS ( LASTYR- 1 9  LASTYR+5)  $ 

6  $ 

7  $ 

8  BEGYR  -  ( LASTYR- 1 9 ) , ( LASTYR- 1 9 ) , ( LASTYR- 1 9 ) 

9  BEGYR ( 1 )  “  BEGYR(1)+(MIN(L0C(NSPR(J,).NE.0))-1) 

10  BEGYR(2)  -  BEGYR(2)+(MIN(LOC(NNET(J,).NE.O))-1) 

11  BEGYR(3)  -  BEGYR(3)+(MIN(LOC(NUDT(J,).NE.O))-1) 

12  $ 

13  ENDYR  »  (LASTYR- 2 1 ) , (LASTYR-2 1 ) , (LASTYR-2 1 ) 

14  ENDYR(l)  -  ENDYR(  1  )+SPREND( J,  1 ) 

15  ENDYR(2)  “  ENDYR(2)+NETEND( J,  1 ) 

16  ENDYR(3)  -  ENDYR(3)-HJDTEND( J,  1) 

17  $ 

18  YRS 1 “INTS ( BEGYR ( 1 ) , ENDYR ( 1 ) ) ; NO ( 1 ) “NOELS (YRS1 ) 

1 9  YRS2“INTS ( BEGYR ( 2 ) , ENDYR ( 2 ) ) ; NO ( 2 ) “NOELS (YRS2) 

20  YRS3«INTS( BEGYR ( 3 ) , ENDYR (3 ) ) ; NO ( 3 ) “NOELS ( YRS 3 ) 

21  $ 

22  LOAD  MULTIREGRESSION 

23  HENCEFORTH  MU  IS  MULTIREGRESSION 
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$ 

$ 

$ 


$ 

$ 

$ 

$ 

$ 

$ 


IF  DATA  IS 
MISSING,  REDEFINE 
BEGINNING  YEAR 


REPEAT 

FOR 

ENDING  YEAR 


NUMBER  OF  YEARS 
TIME  SERIES  FOR 
EACH  VARIABLE 


IN 


24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 


$ 

$ 


B“(BEGYR( l)+20)-LASTYR;E“SPREND( J, 1)-1  $ 
PROD*NSPR(J, ) ; SELECT (PROD: INTS(B  E))  $ 

$ 

PRODCO“( 2 : ) ; PRODCO  “  MU(YRS1 ,PR0D:R  C) 

RSQ(J, 1)“C* 1000; FREE  R  C 
LPRODCO“( 2 : ) ; LPRODCO  -  MU(YRS1 .LOG (PROD) :R  C) 
LRSQ(J,1)“C* 1000; FREE  R  C 

$ 

B“( BEGYR ( 2 )+20 ) -LASTYR ; E“NETEND(J , 1 )-l 
NETI“NNET (J, ) ; SELECT ( NETI : INTS ( B  E) ) 

$ 

NETIC0“(2 : ) ;NETICO  “  MU(YRS2,NETI:R  C) 

RSQ( J , 2)=C*1000;FREE  R  C 

$ 

SIGN-1  $ 

C0UNTER“0  $ 

FOR  H“B  E  $ 


PICK  OUT  ONLY  NON-ZERO 
ELEMENTS  OF  THE  ARRAY 


IF  ALL  NET  IMPORTS  ARE 
NEGATIVE,  CONVERT  TO 
POSITIVE  TO  REGRESS  THE  LOGS 


43 

44 

45 


IF(NETI(H).LT.O)  COUNTER-COUNTER+1  $ 

ENDLOOP  H  $  NO  LOG  REGRESSION  CAN  BE 

IF ( COUNTER . EQ . ( E-B+l ) )  SIGN— 1  $  RUN  IF  SOME  ARE  POSITIVE  AND 


46  $  SOME  ARE  NEGATIVE 

47  NETI“NETI*SIGN  $ 

48  $ 

49  LNETIC0=( 2 : ) ; LNETICO  =  MU (YRS 2, LOG (NETI) :R  C) 

50  LRSQ(J, 2)“C*1000;FREE  R  C 

51  $ 

52  B“( BEGYR ( 3 ) +2  0 ) -LASTYR ; E-UDTEND ( J , 1 ) - 1 

53  CONS-NUDT (J,); SELECT (CONS: INTS (B  E)) 

54  $ 

55  C0NSC0-(2: ) ;CONSCO  -  MU(YRS3,CONS:R  C) 

56  RSQ( J , 3  )“C* 1 000 ; FREE  R  C 

57  LCONSCO-( 2 : ) ; LCONSCO  “  MU (YRS3.LOG (CONS) :R  C) 

58  LRSQ(J , 3)“C*1000;FREE  R  C 

59  $ 

60  UNLOAD  MULTIREGRESSION 
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INTS ( LASTYR+1  LASTYR+5)  $  ESTIMATES  WILL  BE  FOR  5  YEARS 


PRODCO ( 1 )+PRODCO ( 2 ) *YREST 
NETICO( 1 )+NETICO(2)*YREST 
CONSCO ( 1 )+CONSCO ( 2 ) *YREST 


$ 

$ 

$ 


EXP(LPRODCO( 1 )+LPRODCO(2)*YREST )  $  LOG 

SIGN*(EXP(LNETICO( 1 )+LNETICO(2)*YREST) )  $  FORE- 
EXP  (LCONSCO( 1 )+LCONSCO( 2 )*YREST)  $  CASTS 


61 

62  YREST 

63  $ 

64  PEST( J , ) 

65  NEST( J , ) 

66  CEST( J , ) 

67  $ 

68  LPEST( J , ) 

69  LNEST( J, ) 

70  LCEST( J , ) 

71  $ 

72  PAD-0  000000000 

73  PRODCTN»( 20: ) ;NETIMPTS=(20: ) ;CNSMPTN-(20: ) 

74  HENCEFORTH  SR  IS  SHIFTRIGHT 

75  $ 

76  ZERO-INTS( 1  LASTYR-ENDYR( 1 )+5) 

77  PRODCTN*NSPR( J , ) 

78  PRODCTN-PRODCTN  PAD (ZERO) 

79  PEST( J, )-SR(PEST(J, ) ,20) ;PLINEST»PEST( J , ) 

80  LPEST( J , )-SR(LPEST( J , ) ,20) ; PLOGEST-LPEST ( J , ) 

81  $ 

82  ZER0-INTS(1  LASTYR-ENDYR( 2 )+5  ) 

83  NETIMPTS-NNET(J, ) 

84  NETIMPTS-NETIMPTS  PAD (ZERO) 

85  NEST( J, )=SR(NEST( J , ) ,20) ;NLINEST*NEST(J , ) 

86  LNEST(J, )-SR(LNEST( J , ) ,20) ;NLOGEST=LNEST( J , ) 

87  $ 

88  ZER0-INTS(1  LASTYR-ENDYR(3)+5) 

89  CNSMPTN-NUDT( J , ) 

90  CNSMPTN-CNSMPTN  PAD (ZERO) 

91  CEST(J, )-SR(CEST(J, ) ,20) ;CLINEST-CEST(J, ) 

92  LCEST(J, )-SR(LCEST(J, ) ,20) ;CLOGEST-LCEST(J, ) 

93  $ 

94  NEWPAGE 

95  $ 

96  HSCALE-(LASTYR- 19. 25, LASTYR+5. 25) 

97  HSIZE-65 

98  VSIZE-20 

99  VLABEL-0  ° 

100  $ 

101  SPACE  2 


LINEAR  FORECASTS 


$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 


°0°S  NEEDED  TO  PAD  VARIABLE 
ACTUAL  PRODUCTION** 

PAD  ACTUAL  TO  GRAPH  ** 

PUT  °0°S  IN  FRONT  OF  ESTS 
TO  GRAPH  PROPERLY 


NET  IMPORTS 


CONSUMPTION 


102  PRINT  "****  NOTE  ***********************************************************•' 

103  PRINT  "  POINTS  PLOTTED  AT  °0°  ARE  CREATED  BY  THE  PROGRAM" 

104  PRINT  "  PLEASE  DISREGARD" 

105  $ 

106  SPACE  2 

107  PRINT  "************  "  NAME(I, )  "  "  CEREAL( J , )  "  ************" 

108  SPACE  1 

109  $ 
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110  PRINT  "PRODUCTION  AND  CONSUMPTION,  ACTUAL  +  LINEAR  AND  LOGARITHMIC  ESTIMATES" 

111  PRINT  "****  PRODCTN=PRODUCTION  (ACTUAL)  CNSMPTN-CONSUMPTION  (ACTUAL)  ****" 

112  PRINT  "****  PLINEST , CLINEST=PRODUCTION  AND  CONSUMPTION  LINEAR  ESTIMATES  ****" 

113  PRINT  "****  PLOGEST , CLOGEST=PRODUCTION  AND  CONSUMPTION  LOGARITHMIC  ESTS  ****" 

114  SPACE  1 

115  $ 

116  FILLER=*(25:  ) 

117  $ 

118  GRAPHZ ( PRODCTN  PLINEST  PLOGEST  CNSMPTN  CLINEST  CLOGEST: YEARS) 

119  $ 

120  NEWPAGE 

121  SPACE  2 

122  $ 

123  PRINT  "NET  IMPORTS,  ACTUAL  +  LINEAR  AND  LOGARITHMIC  ESTIMATES" 

124  PRINT  "****  NET IMPTS-NET IMPORTS  (ACTUAL)  ****'• 

125  PRINT  "****  NLINEST-NET  IMPORTS,  LINEAR  ESTIMATES  ****" 

126  PRINT  "****  NLOGEST=NET  IMPORTS,  LOGARITHMIC  ESTIMATES  ****" 

127  SPACE  1 

128  $ 

129  $ 

130  GRAPHZ (NETIMPTS  NLINEST  NLOGEST  FILLER: YEARS) 

131  SPACE  2 

132  $ 

133  SHRTPEST-ELIMCOLS ( PEST , INTS (1,15)) 

134  S HRTNEST^ELIMCOLS (NEST, INTS ( 1 , 15) ) 

135  SHRTCEST-ELIMCOLS ( CEST , INTS (1,15)) 

136  $ 

137  FREEIF  PRODCTN  PLINEST  PLOGEST  CNSMPTN  CLINEST  CLOGEST  B  E  PAD  COUNTER 

138  FREEIF  NETIMPTS  NLINEST  NLOGEST  YEARS  LASTYR  BEGYR  ENDYR  YRS1  YRS2  YRS3 

139  FREEIF  PRODCO  LPRODCO  NETICO  LNETICO  CONSCO  LCONSCO  PROD  NETI  CONS  H 

140  FREEIF  YREST  SIGN  ZERO  HSCALE  HSIZE  VSIZE  VLABEL  FILLER 
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GETCODE 

Uses  the  first  digit  of  an  IFS  code  to  determine  which  "region"  contains 
the  corresponding  country  name  and  OSF  code,  then  uses  the  entire  IFS  code  to 
find  the  exact  row  in  which  the  correct  data  is  stored.  The  corresponding  OSF 
code  is  placed  in  the  variable  OSF.  GETCODE  is  also  used  by  NAMEFIND  to 
retreive  country  names  when  creating  a  CHECKPOINT  file. 

VARIABLES  WHICH  MUST  BE  DEFINED  BEFORE  EXECUTION: 


COUNTRY 

I 

N 

NAME 

Defined  in  COREPORT  or  BATCHRPT 

VARIABLES  DEFINED  IN  THE  PROGRAM: 


OSF 

-  1  x  2  character  array  containing  the  OSF  code  corresponding  to 
the  IFS  code  being  processed. 

OSFLOC 

-  Index  to  the  row  in  REGIONA  where  the  codes  and  country  name 
are  found. 

REG  IONA 

-  Temporary  object  containing  one  of  the  10  regions  (REGI0N1 
through  REGIONIO ) . 
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EDITING  GETCODE 


PROGRAM 

$ 

THE  REGIONS  DEFINED  IN  PROGRAM  "TABLES"  ARE  STORED  AS  DATA  WITH  NAMES 
"REGION1"  THROUGH  "REGIONIO".  THE  REGION  DESIRED  WILL  BE  FOUND  BY 
CHOOSING  THE  FIRST  CHARACTER  IN  "COUNTRY(I, )"  AND  USING  THIS  TO  FIND 
THE  NUMBER  OF  THE  REGION  TO  SEARCH  FOR  THE  ENTIRE  CODE. 


1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13  GET9: 

14 

15  GET8: 

16 


$ 

$ 

$ 

$ 

$ 

A-0;B-0 

$ 


A-l 

GO  TO  GET9 


IF(C0UNTRY(I,1).EQ."0") 
IF(COUNTRY(I,l).NE."l") 

A-2 ; B-3 

IF ( COUNTRY ( I , 1).NE."9")  GO  TO  GET8 
A-4;B=5 

IF ( COUNTRY ( 1 , 1 ) . EQ . " 8" ) 

IF ( COUNTRY ( I , 1 ) .EQ."4" ) 

IF ( COUNTRY ( I , 1 ) . EQ . " 6 " 

IF ( COUNTRY ( I , 1 ) . EQ . " 2" 


A-6 
A-7 

.OR. 
.OR. 

IF(COUNTRY(I,l).EQ."5")  A-10 


17 

18 

19 

20  $ 

21  IF(A.EQ.O)  GO  TO  ERR2 

22 

23 

24  OSFLOC-O 

25  II-2 

26  IF(B.EQ.O)  II-l 

27 


COUNTRY(I , 1) .EQ."7") 
COUNTRY ( I , 1 ) . EQ . " 3" ) 


A-8 
A- 9 


$  THE  FIRST  CHARACTER  MUST  BE  A  NUMERAL  OR  THE 
$CODE  WAS  ENTERED  INCORRECTLY 
$ 


28 

29 

30  FOR  III 

31 


$ 

$ 

$ 

$ 

$ 


SOME  CODES  ARE  CONTAINED  IN  MORE  THAN  1  REGION:  THOSE  WHICH 
BEGIN  WITH  THE  NUMERALS  1  OR  9  MAY  REQUIRE  2  SEARCHES. 

SOME  OTHERS  MAY  ALSO  BE  IN  MORE  THAN  1  REGION,  BUT  CAN 
BE  FOUND  BY  ONLY  SEARCHING  1. 


32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48  ENDLOOP 

49  $ 

50  ERR2: 

51 


1,11 

IF(III.EQ.2)  A-B  $  IF  REGION  "A"  SEARCH  FAILS,  USE  REGION  "B" 
GET  OBJECT ( ° REGION® ,A)  ON  REPORT 
REGIONA-OBJECT( “REGION® , A) 

$ 

OSFLOC-O 

LOC 1 -LOCS( COUNTRY ( I , 1 ) . EQ . REGIONA( , 1 ) )  $ 

LOC2-LOCS ( COUNTRY ( I , 2 ) . EQ . REG IONA ( , 2 ) )  $ 

LOC3-LOCS ( COUNTRY ( I , 3 ) . EQ . REGIONA( , 3 ) )  $ 

$ 

OSFLOC«INTERSECTION(LOC 1 , L0C2 , L0C3 ) 

$ 

$  ABOVE  LINE  SHOULD  RETURN  1  VALUE  TO  OSFLOC  —  THE 
$  ROW  WHERE  ALL  3  CHARACTERS  OF  THE  IFS  CODE 
$  MATCH  THE  CODE  IN  MEMORY. 

$ 

IF ( OSFLOC. GT.O)  GO  TO  FINDOSF 

$ 

III 


TRY  TO  FIND  MATCHING  IFS 
CODES  BY  INDIVIDUAL 
CHARACTERS 


$  THEN  FIND  INTERSECTION 


SPACE  1 

PRINT  "*****  COUNTRY  CODE  °"  COUNTRY(I,) 
SPACE  1 
ERROR- 1 
GO  TO  BOTTOM 


IS  INCORRECT  *****" 


52 

53 

54 

55  $ 

56  FINDOSF:  JJ- INTS( 35, 36) ;OSF-REGIONA( OSFLOC, JJ) 

57  FREEIF  A  LOCI  LOC2  LOC3  II  III  JJ  B 

58  BOTTOM: 
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GRAINS 


Program  to  retrieve  and  tabulate  grain  data.  Sets  up  headings  and 
initiates  variables  for  OSFDATA  or  FORECAST.  Tabulates  results. 

PERIODIC  CHANGES  REQUIRED:  The  variables  TDIP,  TDLP ,  YEAR,  and  HEADER 
must  be  updated  yearly  as  the  database  is  updated. 

VARIABLES  WHICH  MUST  BE  DEFINED  BEFORE  EXECUTION: 


BRANCH 

COUNTRY 


I 

ID 

N 


Defined  in  COREPORT  or  BATCHRPT 


NAME 

OSF 

PASSWD 

TERM 

TYPE 

VARIABLES  DEFINED  IN  THE  PROGRAM: 

J  -  Loop  index.  Runs  from  1  through  4  (once  for  each  grain). 

LGF  -  TDAM  logical-group  frequency.  Set  to  "a"  for  annual,  "q" 


for  quarterly. 


NSPR 

NNET 

NVDT 


Production  data  for  FORECAST. 
Net  import  data  for  FORECAST. 
Consumption  data  for  FORECAST. 


PEST 

NEST 

CEST 


Array  to  contain  production  forecasts. 
Array  to  contain  net  imports  forecasts. 
Array  to  contain  consumption  forecasts. 


RSQ;  LRSQ  -  Arrays  which  will  contain  R^  values  from  regressions. 


TDIP 

TDLP 


TDAM  variables  containing  the  first  and  last  periods  in  the 
time  series  to  be  retrieved. 


EDITING  GRAINS 
1  PROGRAM 
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32  BLANK“( 3: ) 

33  IF(TYPE.EQ. “EITHER0)  GET  FORECAST  ON  REPORT 
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36  $ 

37  TEMP JUNK =0B JECT (" GRDATA" ,J) 

38  NSPR(J, )=TEMPJUNK( ,4) 

39  NUDT(J,)=TEMPJUNK( ,8) 

40  $ 

41  IF(TYPE.EQ.°EITHER°)  EXECUTE  FORECAST 

42  $ 

43  ANN 13  =YEAR 

44  FOR  JK= 1,11 

45  OBJECT("ANN" , JK)=TEMPJUNK( ,JK) 

46  ENDLOOP  JK 

47  IF(TYPE.EQ. °EITHER° )  ANN4-ANN4 ,SHRTPEST( J , ) ,0 , RSQ( J , 1 ) , 0, 0 ,NO( 1 ) 

48  ANN4A-BLANK,LPEST(J,),0,LRSQ(J,1),0,0,NO(1) 

49  IF ( TYPE . EQ . ° E ITHER° )  ANN8-ANN8 , SHRTCEST ( J , ) , 0 , RSQ ( J , 3 ) , 0 , 0 , NO ( 3 ) 

50  ANN8A=BLANK,LCEST(J,) , 0 ,LRSQ( J , 3) , 0 , 0 ,NO( 3 ) 

51  IF ( TYPE. EQ.° EITHER0)  ANN12-NNET( J , ) , SHRTNEST( J , ) , 0 , RSQ( J , 2) , 0 , 0 ,N0(2) 

52  ANN  12A=*  BLANK,  LNEST(  J ,  )  ,0,LRSQ(J,2)  ,0,0, NO (2) 

53  $ 

54  PRINTSPECS(ANN2: SIGNIFICANCE  4) 

55  FREEIF  JK  TEMP JUNK  SHRTPEST  SHRTCEST  SHRTNEST 

56  $ 

57  LOAD  HENCEFORTH  PRINTSPECS 

58  $ 

59  HENCEFORTH  PS  IS  PRINTSPECS; HENCEFORTH  S  IS  SUPPRESS 

60  HENCEFORTH  H  IS  HEADING; HENCEFORTH  A  IS  ARRAY ; HENCEFORTH  D  IS  DECIMALS 

61  $ 

62  $ 

63  PS ( HEADER :S 

64  PS(ANN13:  S 

65  PS(ANN1 :  S 

66  PS(ANN2:  S 


H  A(5,4:"  ")) 

H  A( 5 , 4 : "YEAR" ) ) 

H  A( 5 , 4 : " AREAHAR-VEST 1 000HECT" ) ) 


0  H  A( 5, 5: "YIELD 


MT/  HECT" ) ) 


67 

PS(ANN3:  S 

0 

H 

A(5,8:"BEGIN-  NING  STOCKS 

1000 

MET 

TONS")) 

68 

PS(ANN4:  S 

0 

H 

A(5,8: "PRODUC-  TION 

1000 

MET 

TONS")  D  0 

) 

69 

PS( ANN4A:  S 

0 

H 

A( 5, 4: "PROD  LOG  ESTS" 

)  D 

0  ) 

70 

PS(ANN5 :  S 

0 

H 

A(5,8:"  TOTAL  IMPORTS 

1000 

MET 

TONS")) 

71 

PS(ANN6 :  S 

0 

H 

A(5 , 8: "  TOTAL  EXPORTS 

1000 

MET 

TONS")) 

72 

PS(ANN7:  S 

0 

H 

A( 5 , 8 : "DOMESTICFOR  FEED 

1000 

MET 

TONS")) 

73 

PS(ANN8:  S 

0 

H 

A( 5 , 8 : "CONSUMP-TION  TOTAL 

1000 

MET 

TONS")  D  0 

) 

74 

PS(ANN8A:  S 

0 

H 

A( 5, 4: "CONS  LOG  ESTS" 

)  D 

0  ) 

75 

PS(ANN14:  S 

0 

H 

A(5,6:"FISCAL  YEAR  ")) 

76 

PS(ANN9:  S 

0 

H 

A(5, 9: "JULY- JUNE IMP  FR  US 

1000 

MET  TONS" 

)) 

77 

PS(ANN10:  S 

0 

H 

A( 5, 9: "JULY- JUNE  TOT  IMP 

1000 

MET  TONS" 

)) 

78 

PS(ANN1 1 :  S 

0 

H 

A(  5 , 9 : "JULY -JUNE  TOT  EXP 

1000 

MET  TONS" 

)) 

79 

PS(ANN12:  S 

0 

H 

A(  5 , 8 : "  NET  IMPORTS 

1000 

MET 

TONS")  D  0 

) 

80 

PS(ANN12A:S 

0 

H 

A( 5, 4: "NET  IMPS  LOG  ESTS" 

)  D 

0  ) 

81  $ 

82  $ 

83  HENCEFORTH  PS  IS  PS ; HENCEFORTH  S 

84  HENCEFORTH  D  IS  D 

85  $ 

86  UNLOAD  HENCEFORTH  PRINTSPECS 

87  $ 


IS  S; HENCEFORTH  H  IS  H; HENCEFORTH  A  IS  A 
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GRAINSAV 

Similar  in  function  to  GRAINS,  but  does  not  free  or  overwrite  data  after 
tabulation,  thus  saving  it  for  operator  use. 

PERIODIC  CHANGES  REQUIRED:  The  variables  TDIP,  TDLP ,  and  YEAR  must  be 
updated  yearly  as  the  database  is  updated. 

VARIABLES  WHICH  MUST  BE  DEFINED  BEFORE  EXECUTION: 

ID 

OSF  Defined  in  COREPORT 

PASSWD 


VARIABLES  DEFINED  IN  THE  PROGRAM: 

LGF  -  TDAM  logical-group  frequency.  Set  to  "a"  for  annual,  "q"  for 

quarterly. 

TDIP  -  TDAM  variables  containing  the  first  and  last  periods  in  the 

TDLP  time  series  to  be  retrieved. 


In  addition,  variables  containing  the  time  series  data  for  each  grain  are 
created.  The  prefixes  "WH",  "RI",  ”CG",  and  "TC"  are  appended  to  the  variable 
names  to  identify  the  grain  data  they  contain.  For  example,  ’'WHPROD''  contains 
wheat  production  figures  and  "RIPROD"  contains  rice  production  figures. 


Prefixes:  WH 

RI 
CG 
TC 


-  wheat 

-  Rice 

-  Coarse  Grain 

-  Total  Cereal 


Suffixes : 


AHARV  -  Area  Harvest  (1000  Hectares) 

YIELD  -  Yield  (Metric  tons/hectare) 

BSTOCK  -  Beginning  Stocks 

PROD  -  Production 

DFEED  -  Domestic  Feed  Use 

CONS  -  Domestic  Consumption 

FYUS  -  Fiscal  Year  (July- June)  Imports 

FYIMP  -  Fiscal  Year  Imports  (Total) 

FYEXP  -  Fiscal  Year  Exports  (Total) 


from  the  U.S. 


EDITING  GRAINS AV 

1  PROGRAM 

2  OSF :  TDIP=»  196 1001  $  REQUIRES  YEARLY  UPDATE 
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3 

4 

5 


TDLP-1980001 

LGF="A" 

$ 


6  YEAR=INTS (1961  1980)  $  REQUIRES  UPDATE  TO  MATCH  YEARS  ABOVE 

7  ABBREV=*ARRAY (4,2:  "WHRICGTC"  ) 

8  NNET=(4,20: ) 

9  $ 

10  GET  OSFDATA  ON  REPORT 

11  EXECUTE  OSFDATA 

12  FREE IF  OSFDATA 

13  $ 

14  HENCEFORTH  OB  IS  OBJECT 

15  FOR  J-1,4 

16  X=OB JECT ( "GRDATA" ,  J  ) 

17  $ 

18  OB(ABBREV(J, ) , °AHARV° )  -  X(,l) 

19  OB(ABBREV(  J,  )  ,  “YIELD® )  =•  X(,2) 

20  OB(ABBREV(J,),°BSTOCK°)  =»  X(,3) 

21  OB(ABBREV(J,),°PROD°)  =»  X(,4) 

22  OB (ABBREV(J,),° IMPORT0)  »  X(,5) 

23  OB (ABBREV(J,), “EXPORT0)  -  X(,6) 

24  OB(ABBREV(J,),°DFEED°)  -  X(,7) 

25  OB(ABBREV(J,),°CONS°)  -  X(,8) 

26  OB(ABBREV(J,),°FYUS°)  -  X(,9) 

27  OB(ABBREV(J,),°FYIMP°)  -  X(,10) 

28  OB(ABBREV(J,),°FYEXP°)  -  X(,ll) 

29  $ 

30  PRINTSPECS(OB(ABBREV(J,), “YIELD0): SIGNIFICANCE  4) 

31  $ 

32  ENDLOOP  J 

33  HENCEFORTH  OB  IS  OB 

34  FREE IF  ABBREV  NNET  TDIP  TDLP  LGF 

35  $ 

36  PRINT  "**  WHEAT  DATA  AVAILABLE  **" 

37  TABULATE  YEAR  WHAHARV  WHYIELD  WHBSTOCK  WHPROD  WHIMPORT  WHEXPORT 

38  TABULATE  YEAR  WHDFEED  WHCONS  WHFYUS  WHFYIMP  WHFYEXP 

39  SPACE  1 

40  PRINT  "**  RICE  DATA  AVAILABLE  **" 

41  TABULATE  YEAR  RIAHARV  RIYIELD  RIBSTOCK  RIPROD  RI IMPORT  RIEXPORT 

42  TABULATE  YEAR  RIDFEED  RICONS  RIFYUS  RIFYIMP  RIFYEXP 

43  SPACE  1 

44  PRINT  "**  COARSE  GRAIN  DATA  AVAILABLE  **" 

45  TABULATE  YEAR  CGAHARV  CGYIELD  CGBSTOCK  CGPROD  CGIMPORT  CGEXPORT 

46  TABULATE  YEAR  CGDFEED  CGCONS  CGFYUS  CGFYIMP  CGFYEXP 

47  SPACE  1 

48  PRINT  "**  TOTAL  CREAL  DATA  AVAILABLE  **" 

49  TABULATE  YEAR  TCAHARV  TCYIELD  TCBSTOCK  TCPROD  TCIMPORT  TCEXPORT 

50  TABULATE  YEAR  TCDFEED  TCCONS  TCFYUS  TCFYIMP  TCFYEXP 

51  SPACE  1 

52  $ 

53  PRINT  "AHARV  =•  AREA  HARVEST  (1000  HECT)" 

54  PRINT  "YIELD  -  YIELD  (MET  TONS/HECT)" 

55  PRINT  "BSTOCK  -  BEGINNING  STOCKS" 

56  PRINT  "PROD  -  PRODUCTION" 

57  PRINT  "DFEED  -  DOMESTIC  FEED  USE" 

58  PRINT  "CONS  -  DOMESTIC  CONSUMPTION" 

59  PRINT  "FYUS  -  FISCAL  YEAR  (JULY- JUNE)  IMPORTS  FROM  U.S." 

60  PRINT  "FYIMP  =»  FISCAL  YEAR  IMPORTS  (TOTAL)" 

61  PRINT  "FYEXP  -  FISCAL  YEAR  EXPORTS" 

62  SPACE  1 

63  PRINT  "**  UNITS  -  1000  METRIC  TONS  UNLESS  OTHERWISE  INDICATED  **" 


Aoril  7.  1981 


IFSDATA 


Creates  TDAM  codes  from  the  IFS  codes,  then  uses  the  TDAM  GET  procedure 
to  retrieve  macroeconomic  data  from  the  TDAM  logical  group  IFS.  Also  retrieves 
units  for  tabular  headings. 

VARIABLES  WHICH  MUST  BE  DEFINED  BEFORE  EXECUTION: 

COUNTRY  Defined  in  COREPORT 

NUMWKS 

SDRRATE 

TDIP  Defined  in  MACRO  or  MACROS AV 

TDLP 

TDLGF 

UNITS 

VARIABLES  RETURNED  BY  THE  PROGRAM: 

The  various  macroeconomic  variables  and  their  units  are  self-explanitory . 
See  the  program  and  MACRO  or  MACROSAV. 


EDITING  IFSDATA 

1  PROGRAM 

2  $ 

3  $  GETS  SELECTED  IFS  VARIABLES  FROM  TDAM 

4  $ 

5  IMPORTS ="  " 

6  EXPORTS3"  " 

7  CURACCT3"  " 

8  RESERVES3"  " 

9  WEEKS3"  " 

10  CPI="  " 

11  WPI3"  " 

12  PCE3"  " 

13  INDPROD3"  " 

14  GDP3"  " 

15  GNP3"  " 

16  POP3"  " 

17  EXRATE 1="  " 

18  EXRATE23"  " 

19  $ 

20  IMPORTSX3"C" , COUNTRY (I, ) , "L7D7AB" 

21  IMPORTS =TDAM( GET  IMPORT SX) 

22  IMPORTS (LOCS( IMPORTS. EQ. -999999) )30 

23  UNITS(2,)3NAMELIT(TDUNITS) 

24  TDUNITS3"  " 

25  $ 

26  EXPORTSX3"C" , COUNTRY (I, ) , "L7D7AA" 

27  EXPORTS=TDAM(GET  EXPORTSX) 

28  EXPORTS (LOCS( EXPORTS. EQ. -999999) )=0 

29  UNITS ( 3, )=NAMELIT( TDUNITS) 

30  TDUNITS3"  " 

31  $ 

32  CURACCTX3"C" , COUNTRY (I , ) , "L7D8AW" 

33  CURACCT3TDAM(GET  CURACCTX) 

34  CURACCT(LOCS(CURACCT. EQ. -999999) )30 

35  UNITS(4,)3NAMELIT(TDUNITS) 

36  TDUNITS3"  " 

37  $ 

38  RESERVEX-"C" .COUNTRY (I, ) ."LWS1WW" 

39  RESERVES3TDAM(GET  RESERVEX) 

40  RESERVES (LOCS (RESERVES. EQ. -999999) )30 

41  RESERVES-RESERVES*SDRRATE 

42  CURRENCY3INTS(9  16) 

43  TDUNITS (CURRENCY)3"  OF  US  $" 

44  FREE  CURRENCY 

45  UNITS(5,)3NAMELIT(TDUNITS) 

46  TDUNITS3"  " 

47  $ 

48  WEEKS-( RESERVES/ IMPORTS )*NUMWKS;  WEEKS3WEEKS*(-1 ) 

49  IF (UNITS (2, 1 ) .EQ. “BILLIONS®)  WEEKS3WEEKS/ 1000 

50  $ 

51  CPIX3"C" , COUNTRY ( I , ) , "L6W4WW" 

52  CPI=TDAM(GET  CPIX) 

53  CPI ( LOCS ( CPI. EQ. -999999 ) )30 

54  UNITS(9,)3NAMELIT(TDUNITS) 

55  TDUNITS-"  " 

56  $ 

57  WPIX-"C" , COUNTRY ( I , ) , "L6W3WW" 

58  WPI-TDAM(GET  WPIX) 

59  WPI ( LOCS (WP I. EQ. -999999 ) )-0 

60  UNITS ( 10, )=NAMELIT( TDUNITS) 

61  TDUNITS-"  " 

62  $ 


63  PCEX-" C", COUNTRY ( I, ),"L9W6FW"  g? 

64  PCE-TDAM(GET  PCEX) 

65  PCE(LOCS(PCE. EQ. -999999) )»0 

66  UNITS ( 11, )-NAMELIT( TDUNITS ) 

67  TDUNITS-"  " 

68  $ 

69  INDPRODX="C" , COUNTRY ( I ,  )  , "L6W6WW" 

70  INDPROD-TDAM(GET  INDPRODX) 

71  INDPROD (LOCS(INDPROD.EQ. -999999 ) )-0 

72  UNITS(12,)»NAMELIT(TDUNITS) 

73  TDUNITS-"  " 

74  $ 

75  GDPX-"C"  ,  COUNTRY ( I ,  )  ,  "L9W9BW" 

76  GDP-TDAM(GET  GDPX) 

77  GDP(LOCS(GDP. EQ. -999999) )=0 

78  UNITS ( 13,) -NAMELIT ( TDUNITS ) 

79  TDUNITS-"  " 

80  $ 

8 1  GNPX="C" , COUNTRY( I , ) , "L9W9AW" 

82  GNP=TDAM(GET  GNPX) 

83  GNP(LOCS(GNP.EQ. -999999) )=0 

84  UNITS (  14,  )=NA1-1ELIT (TDUNITS) 

85  TDUNITS3"  " 

86  $ 

87  POPX="C" , COUNTRY ( I , ) , "L9W9ZW" 

88  POP*TDAM(GET  POPX) 

89  POP (LOGS ( POP «EQ. -999999 ) )*0 

90  UNITS( 15 , )=NAMELIT( TDUNITS) 

91  TDUNITS-"  " 

92  $ 

93  EXRATE 1 X-" C" , COUNTRY (I , ) , "LWWWAE" 

94  EXRATE 1-TDAM( GET  EXRATE IX) 

95  EXRATE 1 (LOGS (EXRATE 1 .EQ. -999999) )-0 

96  UNITS ( 7, )-NAMELIT( TDUNITS) 

97  TDUNITS-"  " 

98  $ 

99  EXRATE2X="C" , COUNTRY ( I , ) , "LWWWAG" 

100  EXRATE2 -TDAM ( GET  EXRATE 2X) 

101  EXRATE2(LOCS(EXRATE2.EQ. -999999) )-0 

102  UNITS(8, )»NAMELIT(TDUNITS) 

103  TDUNITS-"  " 

104  FREE IF  IMPORTSX  EXPORTSX  CURACCTX  RESERVEX  CPIX  XPIX  PCEX  INDPRODX 

105  FREEIF  GDPX  GNPX  POPX  EXRATE IX  EXRATE 2 X  TDID  TDUNITS  TDVERB  TDERROR  TDUSER 

106  FREEIF  TDLUBY  TDDSETU  TDLENGX  TDDECLOC  TD FORMAT  TDSETUBY  TDDOCINF  TDSOURCE 


March  17,  1981 
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MACRO 

Calls  IFSDATA  and  prints  out  macroeconomic  tables. 

PERIODIC  CHANGES  REQUIRED:  The  variables  TDIP ,  TDLP ,  YEAR,  and  SDRRATE 
must  be  updated  quarterly  and  yearly  as  the  database  is  updated. 

VARIABLES  WHICH  MUST  BE  DEFINED  BEFORE  EXECUTION: 

NAME  Defined  in  COREPORT  or  BATCHRPT 

TERM 

VARIABLES  DEFINED  IN  THE  PROGRAM: 

NUMWKS  -  Multiplier  for  determining  weeks  of  import  coverage.  Set  to  52 
for  annual,  13  for  quarterly. 

SDRRATE  -  Dollar/SDR  conversion  rate  from  International  Financial  Statistics. 

TDLGF  -  Character  array  containing  the  TDAM  logical  group  (IFS)  and 
frequency  ("a"  for  annual,  "q"  for  quarterly). 

TDIP  -  TDAM  parameters  containing  the  first  and  last  periods  in  the  time 
TDLP  series  to  be  retrieved. 


EDITING  MACRO 

1  PROGRAM  ay 

2  $ 

3  $  CREATES  TABLES  OF  SELECTED  ANNUAL  AND  QUARTERLY 

4  $  IFS  VARIABLES  USING  IFS  DATA  IN  TDAM.  THESE 

5  $  TABLES  WILL  BE  USED  IN  PREPARING  A  QUARTERLY 

6  $  REPORT  FOR  OGSM. 

7  $ 

8  $ 

9  $  TWO  CHARACTER  LITERAL  ARRAYS  ARE  NECESSARY  BEFORE  EXECUTING  THIS 

10  $  PROGRAM:  A  COUNTRY  ARRAY  WITH  THE  IFS  COUNTRY  NUMBERS  AS  ELEMENTS 

11  $  AND  A  NAME  ARRAY  CONTAINING  ENGLISH  NAMES  FOR  THE  COUNTRIES  IN 

12  $  THE  SAME  ORDER  AS  IDENTIFIED  THE  COUNTRY  ARRAY.  THE  FOLLOWING  ASSUMES 

13  $  ALL  COUNTRY  NUMBERS  ARE  3  DIGITS  AND  ALL  COUNTRY  NAMES  ARE 

14  $  LESS  THAT  30  CHARACTERS  LONG. 

15  $  COUNTRY  -  (NO.  COUNTRIES  ,  3  :  "XXX,,,"YYY',,"ZZZ") 

16  $  NAME  -  (NO.  COUNTRIES  ,  30  :  "NAMEXXX" , "NAMEYYY" , "NAMEZZZ" ) 

17  $ 

18  $ 

19  VARIABLE  -  “YEAR® , "IMPORTS® , “EXPORTS® , °CURACCT° , ®RESERVES® , “WEEKS® 

20  VARIABLE  -  VARIABLE , “EXRATEl ® , “EXRATE2® , ®CPI® , °WPI® , ®PCE® , “INDPROD® 

21  VARIABLE  “  VARIABLE , “GDP® , “GNP® , “POP® 

22  TDDOCSW  -  2 

23  $ 

24  TDIP  *  1976001  $  REQUIRES  YEARLY  UPDATE 

25  TDLP  -  1979001 

26  TDLGF  “  "IFSA" 

27  YEAR  -  1976  1977  1978  1979  $  REQUIRES  YEARLY  UPDATE  TO  MATCH  ABOVE 

28  UNITS  -  (15,2:°X®) 

29  $ 

30  SDRRATE “ARRAY ( 4 :  1.16183,1.21471,1.30279,1.31733)  $  REQUIRES  YEARLY  UPDATE 

31  $ 

32  $ 

33  LOAD  TDAM 


34 

GET  IFS DATA 

3N  REPORT 

35 

NUMWKS-52 

36 

EXECUTE  IFS DATA 

37 

$ 

38 

ANNUAL  -  ARRAY (15,4:) 

39 

ANNUAL(1,)  - 

YEAR 

40 

ANNUAL(2,)  - 

IMPORTS 

41 

ANNUAL( 3 , )  - 

EXPORTS 

42 

ANNUAL (4.)  - 

CURACCT 

43 

ANNUAL (5,)  - 

RESERVES 

44 

ANNUAL ( 6 , )  » 

WEEKS 

45 

ANNUAL(7 , )  - 

EXRATEl 

46 

ANNUAL ( 8 , )  “ 

EXRATE 2 

47 

ANNUAL(9, )  » 

CPI 

48 

ANNUAL(10,)- 

WPI 

49 

ANNUAL(11,)- 

PCE 

50 

ANNUAL( 12, )“ 

INDPROD 

51 

ANNUAL ( 13,)“ 

GDP 

52 

ANNUAL ( 14 , )“ 

GNP 

53 

ANNUAL( 15 , )* 

POP 

54 

S 

55 

FREE  IMPORTS 

EXPORTS  CURACCT  RESERVES  WEEKS  EXRATEl  EX RATE 2 

56 

FREE  SDRRATE 

CPI  WPI  PCE  INDPROD  GDP  GNP  POP 

57  TDIP  -  1979002  $  REQUIRES  QUARTERLY  UPDATE 

58  TDLP  -  1980003 

59  TDLGF  -  "IFSQ" 

60  $ 

61  SDRRATE“(6:  1.29110,1.31775,1.31733,1.25118,1.32438,1.31244) 

62  $ 


63  YEAR  -  1979.1  1979.2  1979.3  1979.4  1980.1  1980.2  $  REQUIRES  UPDATE  90 

64  $ 

65  NUMWKS-13  . 

66  EXECUTE  IFSDATA 

67  $ 

68  UNLOAD  TDAM 

69  $ 

70  QUARTERS  -  ARRAY(15,6:) 

71  QUARTERS  ( 1 , )  -  YEAR 

72  QUARTERS (2.)  -  IMPORTS 

73  QUARTERS (3.)  -  EXPORTS 

74  QUARTERS (4,)  -  CURACCT 

75  QUARTERS (5,)  -  RESERVES 

76  QUARTERS ( 6, )  -  WEEKS 

77  QUARTERS (7,)  -  EXRATE 1 

78  QUARTERS (8,)  -  EXRATE 2 

79  QUARTERS (9,)  -  CPI 

80  QUARTERS (10,)-  WPI 

81  QUARTERS (11,)-  PCE 

82  QUARTERS (12,)-  INDPROD 

83  QUARTERS (13,)-  GDP 

84  QUARTERS (14,)-  GNP 

85  QUARTERS (15,)-  POP 

86  $ 

87  FREE IF  IMPORTS  EXPORTS  CURACCT  RESERVES  WEEKS  EXRATE 1  EXRATE 2 

88  FREE IF  SDRRATE  CPI  WPI  PCE  INDPROD  GDP  GNP  POP  IFSDATA 

89  FREE IF  NUMWKS  TDIP  TDLP  TDLGF 

90  $ 

91  UNITS (1,)  -  ‘YEAR. QUARTER* 

92  UNITS(6, )  -  "WEEKS 

93  $ 

94  NEWPAGE 

95  PRINTSPECS (ANNUAL: SUPPRESS  0) 

96  PRINTSPECS  (QUARTERS -.SUPPRESS  0) 

97  T  -  NAME(I) ,"  MACROECONOMIC  CONDITIONS” 

98  $ 

99  IF(TERM.NE.”M”)  GO  TO  WIDE 

100  TABULATE  VARIABLE  UNITS  ANNUAL ( , 1)  ANNUAL( ,2) : BORDERS  SPACE  5  TITLE  T 

101  TABULATE  VARIABLE  UNITS  ANNUAL (, 3)  ANNUAL (, 4 ): BORDERS  SPACE  5 


102 

103 

104 

105 

106 


TABULATE  VARIABLE  UNITS  QUARTERS (,1)  QUARTERS (, 2)  QUARTERS (, 3 ): BORDERS  SPACE  5 
TABULATE  VARIABLE  UNITS  QUARTERS (, 4)  QUARTERS (, 5)  QUARTERS ( , 6) : BORDERS  SPACE  5 


GO  TO  NOTES 

107  WIDE: 

108 

109 

110  $ 

111  NOTES: 

PRINT  "CURACCT 
PRINT  "RESERVES 


TABULATE  VARIABLE  UNITS  ANNUAL  : BORDERS  SPACE  5  TITLE  T 
TABULATE  VARIABLE  UNITS  QUARTERS  : BORDERS  SPACE  5 


BALANCE  ON  CURRENT  ACCOUNT" 

■  INTERNATIONAL  RESERVES" 

PRINT  "WEEKS  -  WEEKS  OF  IMPORT  COVERAGE" 

PRINT  "EXRATE 1  -  EXCHANGE  RATE,  LOCAL  CURRENCY/ $ ,  END  OF  PERIOD" 
PRINT  "EXRATE2  -  EXCHANGE  RATE,  $ /LOCAL  CURRENCY,  END  OF  PERIOD" 
PRINT  "PCE  -  PRIVATE  CONSUMPTION" 

PRINT  "INDPROD  -  INDUSTRIAL  PRODUCTION" 

PRINT  "POP  -  POPULATION" 

SPACE  1 

PRINT  "DATA  SOURCE:  INTERNATIONAL  FINANCIAL  STATISTICS,  IMF" 

$ 

123  DATE  -  TDDTLU;  DATE 

124  NEWPAGE 

125  FREEIF  UNITS  T  VARIABLE  ANNUAL  QUARTERS  DATE 
April  7,  1981 


112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 
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MACRO SAV 


Similar  in  function  to  MACRO,  but  does  not  free  or  overwrite  data  after 
tabulation,  thus  saving  it  for  operator  use. 

PERIODIC  CHANGES  REQUIRED:  The  variables  TDIP ,  TDLP ,  and  YEAR  must  be 
updated  yearly  as  the  database  is  updated. 

VARIABLES  WHICH  MUST  BE  DEFINED  BEFORE  EXECUTION: 


COUNTRY  Defined  in  COREPORT  or  BATCHRPT 


VARIABLES  DEFINED  IN  THE  PROGRAM: 


TDLGF  -  Character  array  containing  the  TDAM  logical  group  (IFS)  and 
frequency  ("a"  for  annual,  "q"  for  quarterly). 

TDIP  -  TDAM  parameters  containing  the  first  and  last  periods  in  the  time 

series  to  be  retrieved. 


IMPORTS 

EXPORTS 

CURACCT 

RESERVES 

EXRATE1 

EXRATE 2 

CPI 

WPI 

PCE 

INDPROD 

GDP 

GNP 

POP 


Imports 

Exports 

Balance  on  Current  Account 
International  Reserves 

Exchange  Rate,  Local  Currency/$,  End  of  Period 

Exchange  Rate,  $/Local  Currency,  End  of  Period 

Consumer  Price  Index 
Wholesale  Price  Index 

Private  Consumption  Expenditures  (Index  number) 
Industrial  Production  (Index  number) 

Gross  Domestic  Product 
Gross  National  Product 
Population 


Units  are  specified  on  output 


EDITING  MACROSAV 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
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PROGRAM 

$ 

TWO  CHARACTER  LITERAL  ARRAYS  ARE  NECESSARY  BEFORE  EXECUTING  THIS 
PROGRAM:  A  COUNTRY  ARRAY  WITH  THE  IFS  COUNTRY  NUMBERS  AS  ELEMENTS 
AND  A  NAME  ARRAY  CONTAINING  ENGLISH  NAMES  FOR  THE  COUNTRIES  IN 
THE  SAME  ORDER  AS  IDENTIFIED  THE  COUNTRY  ARRAY.  THE  FOLLOWING  ASSUMES 
ALL  COUNTRY  NUMBERS  ARE  3  DIGITS  AND  ALL  COUNTRY  NAMES  ARE 
LESS  THAT  20  CHARACTERS  LONG. 


$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 


COUNTRY  =  (NO.  COUNTRIES  , 
NAME  =■  (NO.  COUNTRIES  ,  30 


TDDOCSW  =  2 

$ 

TDIP  =  1961001 
TDLP  =  1980001 
TDLGF  »  "IFSA" 
INTS( 1961  1980)  $ 
■  (15,2: °X°) 


:  "XXX" , "YYY" , "ZZZ" ) 

"NAME XXX" , "NAME YYY" , "NAMEZZZ" ) 


$  REQUIRES  YEARLY  UPDATE 


REQUIRES  YEARLY  UPDATE  TO  MATCH  ABOVE 


YEAR  * 

UNITS 

$ 

LOAD  TDAM;GET  IFS DATA  ON  REPORT 
EXECUTE  IFS DATA 

UNLOAD  TDAMjFREEIF  IFSDATA  TDDOCSW  TDIP  TDLP  TDLGF 
UNITS(1,)  -  °YEAR° 

UNITS(5,)-°SDR° 

$ 

LOAD  HENCEFORTH  PRINTSPECS 

27  HENCEFORTH  PS  IS  PRINTSPECS ; HENCEFORTH  CH  IS  CHARACTER 

28  HENCEFORTH  A  IS  ARRAY ; HENCEFORTH  H  IS  HEADING 

29  $ 

30  PS (YEAR:  H  A(4,8:" 

31  PS (IMPORTS: 

32  PS (EXPORTS: 

33  PS(CURACCT: 

34  PS (RESERVES: 

35  PS ( EXRATE 1 : 

36  PS(EXRATE2 : 

H  A(4,8:" 

H  A(4,8:" 

H  A(4,8:" 


H  A(4,8:" 
H  A(4,8:" 
H  A(4, 8: " 


:"  YEAR")) 

: "IMPORTS 

" , CH(UNITS(2 , ) ) ) ) 

: "EXPORTS 

" , CH ( UNITS ( 3 , ) ) ) ) 

: "CURACCT 

" , CH(UNITS(4 , ) ) ) ) 

: "RESERVES 

"  ,  CH(UNITS ( 5 , ) ) ) ) 

: "EXRATE 1 

",CH(UNITS(7 , ) ) ) ) 

: "EXRATE2 

" ,CH(UNITS(8 , ) ) ) ) 

:"  CPI 

", CH(UNITS(9 , ) ) ) ) 

:"  WPI 

",CH( UNITS ( 10, ) ) ) ) 

: "  PCE 

" ,CH( UNITS ( 11,)))) 

:" INDPROD 

" ,CH( UNITS ( 12 , ) ) ) ) 

: "  GDP 

" ,CH(UNITS( 13, ) ) ) ) 

: "  GNP 

" , CH( UNITS (14,)))) 

: "  POP 

" ,CH (UNITS ( 15 , ) ) ) ) 

37  PS(CPI : 

38  PS(WPI: 

39  PS(PCE: 

40  PS(INDPROD: 

41  PS(GDP: 

42  PS(GNP: 

43  PS (POP: 

44  $ 

45  HENCEFORTH  PS  IS  PS ; HENCEFORTH  H  IS  H 

46  HENCEFORTH  CH  IS  CH ; HENCEFORTH  A  IS  A 

47  UNLOAD  HENCEFORTH  PRINTSPECS 

48  $ 

49  TABULATE  YEAR  IMPORTS  EXPORTS  CURACCT  RESERVES 

50  $ 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 
63 


INDPROD 


TABULATE  EXRATE 1  EXRATE 2  CPI  WPI  PCE  GDP  GNP  POP 

$ 

NOTES: 

PRINT  "CURACCT 
PRINT  "RESERVES 
PRINT  "EXRATE 1 
PRINT  "EXRATE2 


BALANCE  ON  CURRENT  ACCOUNT" 
INTERNATIONAL  RESERVES" 
EXCHANGE  RATE,  LOCAL  CURRENCY/ $, 
EXCHANGE  RATE,  $/ LOCAL  CURRENCY, 


END  OF  PERIOD" 
END  OF  PERIOD" 


PRINT  "PCE  -  PRIVATE  CONSUMPTION" 

PRINT  "INDPROD  *  INDUSTRIAL  PRODUCTION" 

PRINT  "POP  =  POPULATION" 

SPACE  1 

PRINT  "DATA  SOURCE:  INTERNATIONAL  FINANCIAL  STATISTICS, 
FREE IF  UNITS 


IMF" 
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NAMEFIND 

Used  in  the  batch  mode  to  help  create  a  CHECKPOINT  file.  Calls  GETCODE 
to  search  through  the  various  REGIONS  to  match  IFS  or  OASIS  codes  with 
country/region  names. 

VARIABLES  WHICH  MUST  BE  DEFINED  BEFORE  EXECUTION: 


CO DEAR 

-  Character  literal  array  of  IFS  or  OASIS  codes. 

COUNTRY 

-  N  x  3  character  array  containing  a  list  of  IFS  codes. 

KK 

-  Array  of  integers  from  5  through  34 

LL 

-  Array  of  integers  from  1  through  3 

NAME 

-  N  x  30  character  array  of  country  namkes  corresponding  to  codes 
in  COUNTRY. 

VARIABLES  RETURNED  BY  THE  PROGRAM: 

The  IFS  codes  for  the  countries  desired  are  placed  into  COUNTRY.  The 
matching  country  names  are  placed  in  NAME. 


EDITING  NAMEFIND 

1  PROGRAM 

2  $ 

3  ONERROR( NOMESSAGE  NOTRACE  CONTINUE) 

A  $ 

5  FOR  I-1,N 

6  INDX-3*I 

7  IF  (CODEAR(INDX) .EQ."  ")  GO  TO  IFSFIND 

8  INTGR-INDX-2 , INDX-1 , INDX 

9  COUNTRY ( I, ) -CODEAR (INTGR) 

10  EXECUTE  GETCODE 

11  NAME (I,) -REGIONA (OSFLOC.KK) 

12  GO  TO  LOOPEND 

13  $ 

14  IFSFIND :IFSL0C=0 

15  OASCODE«(I,2:"  ") 

16  FOR  J-1,10 

17  GET  OBJECT(° REGION °,J)  ON  REPORT 

18  REGIONA=OBJECT(°REGION°,J) 

19  FREEIF  OBJECT( “REGION0, J) 

20  $ 

21  INTGR-INDX-2 , INDX-1 

22  OASCODE-CODEAR(INTGR) 

23  LOC1-LOCS (OASCODE (1,1) .EQ .REGIONA( , 35 ) ) 

24  LOC2-LOCS (OASCODE( I , 2 ) . EQ . REGIONA( , 36 ) ) 

25  IFSLOC-INTERSECTION(LOC1,LOC2) 

26  $ 

27  IF  (IFSLOC.GT.O)  GO  TO  IDENT 

28  FREEIF  REGIONA 

29  ENDLOOP  J 

30  $ 

3 1  IDENT : COUNTRY (I, ) -REGIONA ( IFSLOC , LL ) 

•32  NAME(I, )-REGIONA( IFSLOC ,KK) 

33  $ 

34  LOOPEND: FREEIF  REGIONA 

35  ENDLOOP  I 

36  $ 

37  FREEIF  KK  LL  OASCODE  LOCI  LOC2  IFSLOC  CODEAR  INDX  INTGR 


February  25,  1981 
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OSFDATA 


Uses  the  OASIS  GETTDTABLE  command  to  retrieve  grain  data  from  the  OSF 
logical  group.  If  forecasts  are  requested,  it  also  determines  the  last  year 
in  which  data  is  reported  for  the  production,  consumption,  and  net  imports 
series. 

VARIABLES  WHICH  MUST  BE  DEFINED  BEFORE  EXECUTION: 

ID 

LGF 

OSF  Defined  in  COREPORT  or  BATCHRPT 

PASSWD 

TDIP 

TDLP 

TYPE 

VARIABLES  RETURNED  BY  THE  PROGRAM: 

GRADATA1 

through  -  Tables  containing  grain  data. 

GRADATA4 

NNET  -  4-element  array  containing  net  imports  calculations. 

SPREND  -  If  the  data  series  for  forecasting  are  not  up-to-date,  these 

NETEND  variables  contain  an  index  of  the  last  years  which  are  avail- 

UDTEND  able.  If  data  is  available  for  all  20  years,  these  variables 

are  set  to  21. 
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EDITING  OSFDATA 

1  PROGRAM 

2  GRDATAl =ARRAY (20,11:) 

3  GRDATA2=ARRAY (20,11:) 

4  GRDATA3=ARRAY (20,11:) 

5  GRDATA4® ARRAY (20,11:) 

6  $ 

7  SPREND-ARRAY(4,5: ) 

8  NETEND- ARRAY (4,5:) 

9  UDTEND- ARRAY (4,5:) 

10  $ 

11  OSFAR-ARRAY (11,24:" 

12  0SFAR(,l)-"0" 

13  0SFAR(,2)-"S" 

14  OSFAR(,3)-"F" 

15  0SFAR(,4)=LGF 

16  OSFAR(,7)="AYCSSUUUSSU" 

17  OSFAR( ,8) -"HHIPMXFDMMX" 

1 8  OSFAR( , 9 ) -"HHTRTTETUF J" 

19  $ 

20  FOR  K-1,11 

21  OSFAR(K,10)-OSF(,1) 

22  0SFAR(K, 1 1 )=OSF ( ,  2) 

23  ENDLOOP  K 

24  $ 

25  $ 

26  GRAIN-ARRAY ( 6 :’'WRCHIG") 


$  WHEAT 
$RICE 

$C0ARSE  GRAIN 
$TOTAL  CEREAL 


»)  $  CREATES  ARRAY  OF 

$  TDAM  CODES  FOR 
$  GETTDTABLE 


27  $ 

28  $  LOOP  BELOW  IS  REPEATED  ONCE  FOR  EACH  GRAIN  TO  BE  RETREIVED 

29  $ 

30  FOR  K-1,3 


31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


OSFAR(,5)=GRAIN(K) 

OSFAR(,6)-GRAIN(K+3) 

TEMP AR-GETTDT AB ( TD I P , TDLP , 0  S F AR , I D , P AS SWD )  $  RETRIEVE  DATA  FOR  1  GRAIN 
$ 

IF  (TYPE.NE. °EITHER°)  GO  TO  BELOW 

SPREND(K, ) -LOCS (TEMP AR( 4, ).EQ. -999999 ) .GT. 15 
IF  (SPREND(K, 1) .EQ.O)  SPREND(K, 1)-21 


BELOW: 

$ 


NETEND (K , ) -LOCS ( TEMP AR ( 5 , ) . EQ . -9 9 9 9 9 9 ) . GT . 1 5 

NETEND(K, )-NETEND(K, ) , LOCS (TEMP AR(6 , ) .EQ. -999999) .GT. 15 
IF  (NETEND(K.l).EQ.O)  NETEND(K, 1 )“21 

UDTEND(K, )«LOCS(TEMPAR(8, ) .EQ. -999999) .GT. 15 
IF  (UDTEND(K, 1) .EQ.O)  UDTEND(K, 1 )-21 


$ 

$ 

$ 

$ 

$ 

§ 

$ 

$ 

§ 


FOR 

FORECASTS 

ONLY 
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74  FREEIF  OSFAR  TEMPAR  K  K1  GRAIN 
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TABLES 


On  request,  prints  a  summary  of  available  regions.  Allows  the  user  to 
examine  the  IFS  codes  and  country  names  within  each  region. 

VARIABLES  WHICH  MUST  BE  DEFINED  BEFORE  EXECUTION: 

TERM  -  Defined  in  COREPORT  or  BATCHRPT 


EDITING  TABLES  99 

1  PROGRAM 

2  MARGINS (80) 


3 

$ 

4 

SPACE 

1 

5 

PRINT 

•  t 

SUMMARY  OF  THE 

REGIONS  AVAILABLE:" 

6 

SPACE 

1 

7 

$ 

8 

PRINT 

li¬ 

REGION  NUMBER 

REGION" 

9 

PRINT 

lt. 

********************************************* 

10 

PRINT 

II 

1 

MISCELLANEOUS" 

11 

PRINT 

It 

2 

INDUSTRIAL  COUNTRIES  &  EUROPE" 

12 

PRINT 

19 

3 

AUSTRALIA, NZ, SOUTH  AFRICA" 

13 

PRINT 

II 

4 

CENTRALLY  PLANNED" 

14 

PRINT 

It 

5 

OIL  EXPORTING" 

15 

PRINT 

II 

6 

OCEANIA" 

16 

PRINT 

•  1 

7 

NORTH  AFRICA  &  MIDDLE  EAST" 

17 

PRINT 

It 

8 

AFRICA" 

18 

PRINT 

If 

9 

OTHER  WESTERN  HEMISPHERE" 

19 

PRINT 

II 

10 

ASIA" 

20 

$ 

21 

SPACE 

2 

22 

$ 

23  HEAD- ARRAY (2, 50:"  IFS  COUNTRY/  OASIS") 

24  HEAD ( 2 ,  )-"  CODES  REGION  CODES" 

25  $ 

26  REG: ASK  "ENTER  A  REGION  NUMBER:  ","NUM«" 

27  IF(NUM.LT. 1  .OR.  NUM.GT.10)  GO  TO  REG 

28  GET  OBJECT ( “REGION0 ,NUM)  ON  REPORT 

29  $ 

30  SPACE  2 

31  TEMPO=OBJECT(  “REGION® ,NUM) ;FREE  OBJECT ( “ REGION “ , NUM ) 

32  PRINT  HEAD(1,) 

33  PRINT  HEAD(2, ) 

34  J-INTS (1,3); J J-INTS (4,34); JJ J-INTS (35,36) 

35  $ 

36  TABULATE  TEMPO ( ,J)  TEMPO ( ,JJ)  TEMPO ( ,JJJ) 

37  $ 

38  SPACE  2 

39  ASKCHAR  "DO  YOU  WISH  TO  SEE  AN  ADDITIONAL  REGION?  (Y  OR  N):  ","ANS 

40  IF  (ANS.EQ."Y")  GO  TO  REG 

41  $ 

42  SPACE  1 

43  PRINT  "*****  NOTE  *****" 

44  PRINT  "THE  OASIS  CODES  ARE  ONLY  PRINTED  FOR  REFERENCE,  AND  ARE" 

45  PRINT  "NOT  NECESSARY  TO  RUN  THE  PROGRAM.  IF  NO  OASIS  CODE  IS" 

46  PRINT  "PRINTED  FOR  A  COUNTRY,  GRAIN  DATA  IS  NOT  AVAILABLE." 

47  SPACE  1 

48  PRINT  "IF  THE  IFS  CODE  CONTAINS  ANY  ALPHABETIC  CHARACTERS,  NO" 

49  PRINT  "MACROECONOMIC  DATA  IS  AVAILABLE." 

50  PRINT  "****************" 

51  SPACE  2 

52  MARG:  IF  (TERM.EQ."M")  GO  TO  MAIN 

53  MARGINS( 155) 

54  IF(TERM.EQ."B")  MARGINS(140) 

55  MAIN: 

56  FREE IF  TEMPO  HEAD  J  JJ  JJJ 


April  7,  1981 


COUNTRY . REPORT 


IFS  Codes  by  Region 
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REGIONS 


REGION1  through  REGI0N10  are  text  objects  stored  separately  on  REPORT. 
Columns  1-3  contain  the  IFS  codes.  Some  of  these  are  created  for  the  program 
by  combining  a  digit  (corresponding  to  the  proper  region)  and  the  OSF  code. 
Columns  5-34  contain  the  country  names.  Columns  35-36  contain  the  OSF  codes. 
Columns  73-80  contain  editor-generated  line  numbers. 
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REGION1 


« 


OMI  MISCELLANEOUS 

00000100 

001  WORLD 

T6 

00000200 

0T3  WORLD  LESS  US,  USSR 

T3 

00000300 

0T5  WORLD  LESS  US 

T5 

00000400 

099  REST  OF  WORLD 

99 

00000500 

0T8  LDC°S 

T8 

00000600 

098  UNKNOWN 

98 

00000700 

097  AFLOAT 

97 

00000800 

REGION2 


110 

INDUSTRIAL  COUNTRIES 

+  EUROPE 

T9 

00000100 

111 

UNITED  STATES 

U9 

00000200 

156 

CANADA 

CA 

00000300 

158 

JAPAN 

JP 

00000400 

1E6 

WESTERN  EUROPE 

E6 

00000500 

1D5 

WESTERN  EUROPE  LESS  1 

EC9 

D5 

00000600 

1E2 

EUROPEAN  COMMUNITIES 

12 

E2 

00000700 

1E9 

EUROPEAN  COMMUNITIES 

9 

E9 

00000800 

1E5 

EUROPEAN  COMMUNITIES 

5 

E5 

00000900 

1E3 

EUROPEAN  COMMUNITIES 

3 

E3 

00001000 

122 

AUSTRIA 

AT 

00001100 

124 

BELGIUM 

BL 

00001200 

128 

DENMARK 

DK 

00001300 

132 

FRANCE 

FR 

00001400. 

134 

GERMANY 

DE 

00001500 

136 

ITALY 

IT 

00001600 

137 

LUXEMBOURG (GRAIN  SEE 

BELGIUM) 

BL 

00001700- 

138 

NETHERLANDS 

NL 

00001800 

142 

NORWAY 

NO 

00001900 

144 

SWEDEN 

SE 

00002000 

146 

SWITZERLAND 

CH 

00002100 

112 

UNITED  KINGDOM 

GB 

00002200 

170 

OTHER  EUROPE 

00002300 

1E7 

OTHER  WEST  EUROPE 

E7 

00002400 

9E8 

EASTERN  EUROPE 

E8 

00002500 

9AL 

ALBANIA 

AL 

00002600 

9BG 

BULGARIA 

BG 

00002700 

9CS 

CZECHOSLOVAKIA 

CS 

00002800 

816 

FAEROE  ISLANDS 

00002900 

172 

FINLAND 

FI 

00003000 

9DD 

GERMANY,  GDR 

DD 

00003100 

823 

GIBRALTAR 

00003200 

174 

GREECE 

GR 

00003300 

9HU 

HUNGARY 

HU 

00003400 

176 

ICELAND 

00003500 

178 

IRELAND 

IE 

00003600 

181 

MALTA 

MT 

00003700 

968 

POLAND 

PL 

00003800 

182 

PORTUGAL 

PT 

00003900 

9R0 

ROMANIA 

RO 

00004000 

184 

SPAIN 

ES 

00004100 

186 

TURKEY 

TR 

00004200 

9SU 

SOVIET  UNION 

SU 

00004300 

188 

YUGOSLAVIA 

YU 

00004400 
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REGION3 


190 

193 

196 

199 

AUSTRALIA,  NZ,  S. AFRICA 
AUSTRALIA 

NEW  ZEALAND 

SOUTH  AFRICA 

AU 

NZ 

ZA 

REGION4 

00000100 

00000200 

00000300 

00000400 

9T7 

CENTRALLY  PLANNED 

T7 

00000100 

9E8 

EASTERN  EUROPE 

E8 

00000200 

9AL 

ALBANIA 

AL 

00000300 

9BG 

BULGARIA 

BG 

00000400 

9CS 

CZECHOSLOVAKIA 

CS 

00000500 

9DD 

GERMAN  DEMOCRATIC  REPUBLIC 

DD 

00000600 

9HU 

HUNGARY 

HU 

00000700 

968 

POLAND 

PL 

00000800 

9R0 

ROMANIA 

RO 

00000900 

9SU 

SOVIET  UNION 

SU 

00001000 

188 

YUGOSLAVIA 

YU 

00001100 

522 

CAMBODIA 

KH 

00001200 

9CN 

CHINA,  PEOPLES  REPUBLIC 

CN 

00001300 

9KF 

KOREA,  NORTH 

KP 

00001400 

9  LA 

LAOS 

LA 

00001500 

582 

VIETNAM 

VD 

00001600 

9CU 

CUBA 

CU 

REGIONS 

00001700 

999 

OIL  EXPORTING 

00000100 

612 

ALGERIA 

DZ 

00000200 

536 

INDONESIA 

ID 

00000300 

429 

IRAN 

IR 

00000400 

433 

IRAQ 

IQ 

00000500 

443 

KUWAIT 

KW 

00000600 

672 

LIBYA 

LY 

00000700 

694 

NIGERIA 

NG 

00000800 

449 

OMAN 

00000900 

453 

QATAR 

00001000 

456 

SAUDI  ARABIA 

SA 

00001100 

466 

UNITED  ARAB  EMIRATES 

AE 

00001200 

299 

VENEZUELA 

VE 

00001300 

REGI0N6 
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8A9  OCEANIA 

A9 

00000100 

813  SOLOMON  ISLANDS 

00000200 

819  FIJI 

00000300 

887  FRENCH  POLYNESIA 

00000400 

826  GILBERT-TUVALU 

00000500 

829  GUAM 

00000600 

836  NAURU 

00000700 

839  NEW  CALEDONIA 

00000800 

846  NEW  HEBRIDES 

00000900 

853  PAPUA  NEW  GUINEA 

PG 

00001000 

856  ST.  HELENA 

00001100 

859  SAMOA,  AMERICAN 

00001200 

862  SAMOA,  WESTERN 

00001300 

866  TONGA 

00001400 

REGION7 


4F3 

NORTH  AFRICA  &  MIDDLE  EAST 

F3 

00000100 

4F4 

HIGH  INCOME  NORTH  AFRICA 

F4 

00000200 

4F5 

LOW  INCOME  N.AFR.  &  MID-EAST 

F5 

00000300 

405 

OTHER  MIDDLE  EAST 

00000400 

612 

ALGERIA 

DZ 

00000500 

419 

BAHRAIN 

00000600 

423 

CYPRUS 

CY 

00000700 

469 

EGYPT 

EG 

00000800 

429 

IRAN 

IR 

00000900 

433 

IRAQ 

IQ 

00001000 

436 

ISRAEL 

IL 

00001100 

439 

JORDON 

JO 

00001200 

443 

KUWAIT 

KW 

00001300 

446 

LEBANON 

LE 

00001400 

672 

LIBYA 

LY 

00001500 

686 

MOROCCO 

MA 

00001600 

449 

OMAN 

00001700 

453 

QATAR 

00001800 

456 

SAUDI  ARABIA 

SA 

00001900 

463 

SYRIA 

SY 

00002000 

744 

TUNISIA 

TN 

00002100 

466 

UNITED  ARAB  EMIRATES 

AE 

00002200 

473 

YEMEN  ARAB  REPUBLIC 

YE 

00002300 

459 

YEMEN,  PDR 

YD 

00002400 

REGI0N8 
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6F1  AFRICA 

FI 

00000100 

605  OTHER  AFRICA 

00000200 

6F7  EAST  AFRICA 

F7 

00000300 

6F8  CENTRAL  AFRICA 

F8 

00000400 

6F9  NORTH  AFRICA 

F9 

00000500 

6G1  SOUTHERN  AFRICA 

G1 

00000600 

6G7  AFRICA  EXCEPT  NORTH  AFRICA 

G7 

00000700 

6H3  NORTH  &  SOUTH  AFRICA 

H3 

00000800 

612  ALGERIA 

DZ 

00000900 

614  ANGOLA 

AO 

00001000 

638  BENIN 

DY 

00001100 

616  BOTSWANA 

00001200 

618  BURUNDI 

BI 

00001300 

622  CAMEROON 

CM 

00001400 

624  CAPE  VERDE 

00001500 

626  CENTRAL  AFRICAN  EMPIRE 

00001600 

628  CHAD 

TD 

00001700 

632  COMOROS 

00001800 

634  CONGO 

00001900 

611  DJIBOUTI 

00002000 

469  EGYPT 

EG 

00002100 

642  EQUATORIAL  GUINEA 

00002200 

644  ETHIOPIA 

ET 

00002300 

634  GABON 

00002400 

648  GAMBIA 

00002500 

652  GHANA 

GH 

00002600 

654  GUINEA 

GN 

00002700 

656  GUINEA-BISSAU 

GW 

00002800 

662  IVORY  COAST 

Cl 

00002900 

664  KENYA 

KE 

00003000 

666  LESOTHO 

00003100 

668  LIBERIA 

LR 

00003200 

672  LIBYA 

LY 

00003300 

674  MADAGASCAR 

MD 

00003400 

676  MALAWI 

MW 

00003500 

678  MALI 

ML 

00003600 

682  MAURITANIA 

00003700 

684  MAURITIUS 

MV 

00003800 

686  MOROCCO 

MA 

00003900 

688  MOZAMBIQUE 

MZ 

00004000 

692  NIGER 

NE 

00004100 

694  NIGERIA 

NG 

00004200 

696  REUNION 

RE 

00004300 

698  RHODE SIA-ZIMBABWE 

RH 

00004400 

714  RWANDA 

RW 

00004500 

716  SAO  TOME  &  PRINCIPE 

00004600 

722  SENEGAL 

SN 

00004700 

718  SEYCHELLES 

00004800 

724  SIERRA  LEONE 

SL 

00004900 

726  SOMALIA 

SO 

00005000 

199  SOUTH  AFRICA 

ZA 

00005100 

732  SUDAN 

SD 

00005200 

734  SWAZILAND 

00005300 

738  TANZANIA 

TZ 

00005400 

742  TOGO 

TG 

00005500 

744  TUNISIA 

TN 

00005600 

746  UGANDA 

UG 

00005700 

748  UPPER  VOLTA 

HV 

00005800 

636  ZAIRE 

ZR 

00005900 

754  ZAMBIA 

ZM 

00006000 
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REGI0N9 


205  OTHER  WESTERN  HEMISPHERE 

00000100 

2M7  LATIN  AMERICA 

M7 

00000200 

2M8  OTHER  SOUTH  AMERICA 

M8 

00000300 

2M9  MID  AMERICA  (CENTRAL+MEXICO) 

M9 

00000400 

2N3  LATIN  AM  EXCEPT  ARG,MEX,BRA2 

N3 

00000500 

2N4  LATIN  AMERICA  EXCEPT  ARG 

N4 

00000600 

2N9  CENTRAL  (INC.  CARIBBEAN) 

N9 

00000700 

213  ARGENTINA 

AR 

00000800 

218  BOLIVIA 

BO 

00000900 

223  BRAZIL 

BR 

00001000 

228  CHILE 

CL 

00001100 

233  COLUMBIA 

CO 

00001200 

238  COSTA  RICA 

CR 

00001300 

243  DOMINICAN  REPUBLIC 

DO 

00001400 

248  ECUADOR 

EC 

00001500 

253  EL  SALVADOR 

SV 

00001600 

258  GUATEMALA 

GT 

00001700 

263  HAITI 

HT 

00001800 

268  HONDURAS 

HN 

00001900 

273  MEXICO 

MX 

00002000 

283  PANAMA 

PA 

00002100 

288  PARAGUAY 

PY 

00002200 

293  PERU 

PE 

00002300 

298  URUGUAY 

UY 

00002400 

299  VENEZUELA 

VE 

00002500 

311  ANTIGUA 

00002600 

313  BAHAMAS 

00002700 

316  BARBADOS 

00002800 

339  BELIZE 

00002900 

319  BERMUDA 

00003000 

9CU  CUBA 

CU 

00003100 

321  DOMINICA 

00003200 

323  FALKLAND  ISLANDS 

00003300 

326  GREENLAND 

00003400 

328  GRENADA 

00003500 

329  GUADELOUPE 

00003600 

333  GUIANA,  FRENCH 

00003700 

336  GUYANA 

GY 

00003800 

343  JAMAICA 

JM 

00003900 

346  LEEWARD  ISLANDS (4  WINDWARD) 

LW 

00004000 

349  MARTINIQUE 

00004100 

351  MONTSERRAT 

00004200 

353  NETHERLANDS  ANTILLES 

00004300 

356  PANAMA  CANAL  ZONE 

00004400 

361  ST.  KITTS-NEVIS-ANGUILLA 

00004500 

362  ST.  LUCIA 

00004600 

363  ST.  PIERRE  6  MIQUELON 

00004700 

364  ST.  VINCENT 

00004800 

366  SURINAME 

SR 

00004900 

369  TRINIDAD  4  TOBAGO 

TT 

00005000 

373  US  VIRGIN  ISLANDS 

00005100 

376  WINDWARD  ISLANDS (4  LEEWARD) 

LW 

00005200 
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5S1  ASIA 

SI 

00000100 

5P3  ASIA  EXCEPT  JAPAN,  PRC 

P3 

00000200 

5P4  ASIA  EX.  JPN, PRC, INDIA, PAK 

P4 

00000300 

5R1  OTHER  ASIA 

R1 

00000400 

5R4  HIGH  INCOME  EAST  ASIA 

R4 

00000500 

5R3  LOW  INCOME  EAST  ASIA 

R3 

00000600 

5R7  OTHER  SOUTH  ASIA 

R7 

00000700 

5R8  OTHER  SOUTHEAST  ASIA 

R8 

00000800 

512  AFGHANISTAN 

A F 

00000900 

513  BANGALADESH 

BD 

ooooiooo 

516  BRUNEI 

00001100 

518  BURMA 

BU 

00001200 

522  CAMBODIA 

KH 

00001300 

528  CHINA,  REP.  OF  (TAIWAN) 

TA 

00001400 

5CN  CHINA,  PEOPLES  REPUBLIC 

CN 

00001500 

532  HONG  KONG 

HK 

00001600 

534  INDIA 

IN 

00001700 

536  INDONESIA 

ID 

00001800 

9KP  KOREA,  NORTH 

KP 

00001900 

542  KOREA,  SOUTH 

KR 

00002000 

544  LAOS 

LA 

00002100 

546  MACAO 

00002200 

548  MALAYSIA(INC.  SABAH, SARAWAK) 

MY 

00002300 

556  MALDIVES 

00002400 

558  NEPAL 

NP 

00002500 

564  PAKISTAN 

PK 

00002600 

566  PHILIPPINES 

PH 

00002700 

5SS  SABAH 

SS 

00002800 

5SW  SARAWAK 

SW 

00002900 

576  SINGAPORE 

SG 

00003000 

524  SRI  LANKA 

LK 

00003100 

578  THAILAND 

TH 

00003200 

582  VIETNAM 

VD 

00003300 

5VS  VIETNAM,  SOUTH 

VS 

00003400 

